Ziel ist es, für die beigefügte Datei auf den berühmten Knopfdruck ein PDF von A1:I50 zu erstellen und dann gleichtzeitig unter der Bezeichnung in H9 in C:\Ordner\Spesen\ abzulegen.
Wichtig ist mir vor allem, dass automatisch ein PDF erstellt werden kann. Die beiden anderen Punkte wären "nice to have". Ich denke jedoch, dass für den VBA-Spezialisten das eine Kleinigkeit sein wird.....
29.03.2015, 12:37 (Dieser Beitrag wurde zuletzt bearbeitet: 29.03.2015, 12:38 von schauan.)
Hallo Cuba,
Hast Du schon mal was mit VBA gemacht? Erst mal was zur Einführung
Du kannst fast alles mit dem Makrorekorder aufzeichnen. Über "Weitere Befehle..." oben im Schnellzugriffsbereich kannst Du das Menüband anpassen und die Entwicklungsumgebung aktivieren. In dem "neuen" Ribbon kannst Du die Makroaufzeichnung starten und dann die Aktionen nacheinander ausführen. Manuell müsste man nur noch den Bereich und die Übernahme des Namens aus H9 einbauen.
Aufgezeichnet sieht das so aus:
Code:
Sub Makro1()
'
' Makro1 Makro
'
'
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Test\Mappe1.pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
geändert sieht es dann so aus - Du müsstest noch Deinen Pfad statt meinem C:\Test einbauen.
Code:
Sub Makro1()
'
' Makro1 Makro
'
'
Range("A1:I50").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Test\" & Range("H9").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
Hast Du schon mal was mit VBA gemacht? Erst mal was zur Einführung
Du kannst fast alles mit dem Makrorekorder aufzeichnen. Über "Weitere Befehle..." oben im Schnellzugriffsbereich kannst Du das Menüband anpassen und die Entwicklungsumgebung aktivieren. In dem "neuen" Ribbon kannst Du die Makroaufzeichnung starten und dann die Aktionen nacheinander ausführen. Manuell müsste man nur noch den Bereich und die Übernahme des Namens aus H9 einbauen.
Aufgezeichnet sieht das so aus:
Code:
Sub Makro1()
'
' Makro1 Makro
'
'
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Test\Mappe1.pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
geändert sieht es dann so aus - Du müsstest noch Deinen Pfad statt meinem C:\Test einbauen.
Code:
Sub Makro1()
'
' Makro1 Makro
'
'
Range("A1:I50").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Test\" & Range("H9").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
Hallo schauan
Ja, ich habe für meine Arbeit eine Art Auswahldatei geschaffen, die ist gespickt mit Steuerelementen (bin nun bei der Schaltfläche 175 angelangt). Mit dem Macrorecorder kenne ich mich absolut nicht aus. Was in in der Zwischenzeit gemerkt habe, dass ich z.B. 8 / 2015 nicht in PDF abspeichern kann, das / nimmt es nicht an. Das sieht doch alles recht kompliziert aus..........., weiss nicht, ob ich das hinbekomme.