Hallo Forum
Habe da im Forum nichts passendes gefunden....
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.....
Herzlichen Dank im Voraus für die Unterstützung.
Cuba
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
(29.03.2015, 12:37)schauan schrieb: [ -> ]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
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.
Gruss und Dank
cuba
Hallo,
Zitat:das / nimmt es nicht
das hat nichts mit Excel zu tun sondern ist eine Restriktion von Windows. In Dateinamen und Erweiterungen sind folgende Zeichen nicht erlaubt:
Zitat:< > ? " : | \ / *
Ändere deine Formel in H8 entsprechend ab und dann sollte es an dieser Stelle auch keine Probleme mehr geben.