M
MSCom
Neuer Benutzer
Threadstarter
- Dabei seit
- 20.09.2016
- Beiträge
- 1
Hallo geschätzte Community
Ich habe ein kleines Projekt, für das ich bisher noch keine Lösung in diesem Forum finden konnte.
Ich habe eine Excel-Tabellenblatt, welches ich gerne als PDF-Datei an einem vorbestimmten Ort speichern möchte. Hierbei solldem vorhandenen Dateinamen ein aktueller Datums- und Zeitstempel hinzugefügt werden.
Die erzeugte PDF-Datei soll dann als Anhang in eine vorhandene Outlook-Vorlage eingefügt werden.
Gibt es eventuell eine(n) Communityteilnehmer(in), der, die mir bei diesem etwas spezielleren Problem behilflich sein kann
Ich habe mit dem Makrorekorder bereits ein Makro erstellt jedoch hilft mir dieser nicht beim hinzufügen des Datum- und Zeitstempels in den vorhandenen Dateinamen.
Da zudem, die Nutzbarkeit des Makrorekorders sich leider auf Excel und Word beschränkt, lässt sich dieses Werkzeug nicht dazu verwenden, um die Aufgabe ausschließlich hiermit zu lösen. Somit bleibt mir nur der Weg über dieses Forum in der Hoffnung das mir ein VBA erfahrener Communityteilnehmer bei der Lösung meines kleinen Anliegens behilflich ist.
Vielen Dank vorab fürs Interesse.
Unten aufgeführt sind die beiden Makros, die ich mit dem Makrorekorder aufzeichnen und zuweisen konnte MacroX fügt lediglich im Zwischenspeicher vorhandene Daten in das erste Tabellenblatt ein und sendet alles an das eigentliche Tabellenblatt, das die zuvor erwähnten Funktionen enthalten soll. MakroR stellt das dar, was ich mit dem Makrorekorder auf dem Weg zum gewünschten Ziel bisher bewerkstelligen konnte.
Sub MakroX()
'
' MakroX Makro
'
' Tastenkombination: Strg+t
'
Range("B3").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
Rows("3:3").Select
Selection.Delete Shift:=xlUp
Range("B3:J12").Select
Selection.Copy
Sheets("VERSAND").Select
Range("A5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("I14").Select
End Sub
Sub MakroR()
'
' MakroR Makro
'
' Tastenkombination: Strg+r
'
ChDir _
"\\CG07FS01\usrdaten$\KayaHa\Daten\Profildaten\Desktop\Versandte_Bereitstellungen"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\CG07FS01\usrdaten$\KayaHa\Daten\Profildaten\Desktop\Versandte_Bereitstellungen\Bereitstellung - BUC (Bulgarian Air Charter).pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub
Ich habe ein kleines Projekt, für das ich bisher noch keine Lösung in diesem Forum finden konnte.
Ich habe eine Excel-Tabellenblatt, welches ich gerne als PDF-Datei an einem vorbestimmten Ort speichern möchte. Hierbei solldem vorhandenen Dateinamen ein aktueller Datums- und Zeitstempel hinzugefügt werden.
Die erzeugte PDF-Datei soll dann als Anhang in eine vorhandene Outlook-Vorlage eingefügt werden.
Gibt es eventuell eine(n) Communityteilnehmer(in), der, die mir bei diesem etwas spezielleren Problem behilflich sein kann
Ich habe mit dem Makrorekorder bereits ein Makro erstellt jedoch hilft mir dieser nicht beim hinzufügen des Datum- und Zeitstempels in den vorhandenen Dateinamen.
Da zudem, die Nutzbarkeit des Makrorekorders sich leider auf Excel und Word beschränkt, lässt sich dieses Werkzeug nicht dazu verwenden, um die Aufgabe ausschließlich hiermit zu lösen. Somit bleibt mir nur der Weg über dieses Forum in der Hoffnung das mir ein VBA erfahrener Communityteilnehmer bei der Lösung meines kleinen Anliegens behilflich ist.
Vielen Dank vorab fürs Interesse.
Unten aufgeführt sind die beiden Makros, die ich mit dem Makrorekorder aufzeichnen und zuweisen konnte MacroX fügt lediglich im Zwischenspeicher vorhandene Daten in das erste Tabellenblatt ein und sendet alles an das eigentliche Tabellenblatt, das die zuvor erwähnten Funktionen enthalten soll. MakroR stellt das dar, was ich mit dem Makrorekorder auf dem Weg zum gewünschten Ziel bisher bewerkstelligen konnte.
Sub MakroX()
'
' MakroX Makro
'
' Tastenkombination: Strg+t
'
Range("B3").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
Rows("3:3").Select
Selection.Delete Shift:=xlUp
Range("B3:J12").Select
Selection.Copy
Sheets("VERSAND").Select
Range("A5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("I14").Select
End Sub
Sub MakroR()
'
' MakroR Makro
'
' Tastenkombination: Strg+r
'
ChDir _
"\\CG07FS01\usrdaten$\KayaHa\Daten\Profildaten\Desktop\Versandte_Bereitstellungen"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\CG07FS01\usrdaten$\KayaHa\Daten\Profildaten\Desktop\Versandte_Bereitstellungen\Bereitstellung - BUC (Bulgarian Air Charter).pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub
