Makro für den Speicherort und Speichernahmen
17.04.2026 18:06:59
Hans-Georg
ich habe mir, mit eurer Hilfe, ein Makro zusammengestellt, damit ein bestimmtes Tabellenblatt als PDF automatisch gespeichert wird.
Private Sub CommandButton3_Click()
'
Sheets("Rechnung").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Schrott").Select
Range("A13").Select
Dim strFileName As String
strFileName = "C:\MGD\RECHNUNGEN\" & Range("MI55").Text & "\" & Range("BN8").Value & ".pdf"
ThisWorkbook.Sheets("Rechnung_Schrott").ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
Naja.... was soll ich sagen?
Ich möchte gerne in einer Zelle das Jahr eingeben und das Makro so anpassen, dass es wie folgt abgespeichert wird
SPEICHERORT: C:\MGD\Rechnungen\2026\Dateinahme.pdf
Wie ihr sehen könnt, werden von dem Rechnungsformular 2 Ausdrucke gemacht.
Ich hoffe ich habe mich gut genug ausgedrückt, und ihr könnt mein Anliegen nachvollziehen
MfG
Hans-Georg
Anzeige