Hallo euch allen
Ich habe, mit euer Hilfe, ein Makro für meine Tabelle "Altmetalle" erstellt.
Das Makro funktioniert in dieser Datei ohne Probleme. Es wird die Rechnung zweimal ausgedruckt und anschließend als PDF Datei in den Jahresordner gespeichert.
Soweit so gut.

In der Datei „Altmetalle“ steht folgendes Makro (funktioniert einwandfrei)
Verzeichnispfad (aus Windows Explorer kopiert) C:\MGD Recycling\Rechnungen\Schrott\2026 (flexibel durch das Makro)
Speicherordner sind von 2023 bis 2040 vorhanden.
Speichername wird aus Zelle „DU93“ übernommen.


Option Explicit

Private Sub CommandButton1_Click()
Sheets("Rechnung").PrintOut , , 2
Sheets("Rechnung").ExportAsFixedFormat 0, _
"C:\MGD Recycling\Rechnungen\Schrott\" & _
CStr(Year(Date)) & "\" & Sheets("Altmetalle").Range("DU93")

End Sub




Nun habe ich das Makro für meine Datei "Handel" in den entsprechenden Schaltbutton kopiert und angepasst.
Leider funktioniert es hier nicht!?
Ich habe KEINE AHNUNG woran es liegen kann, denn nur der Ordner in den Rechnungen hat sich von "Schrott" auf "Handel" geändert. Alles andere ist gleich geblieben.

In der Datei „Handel“ steht folgendes aus der Datei „Altmetalle“ kopiertes und angepasstes Makro
Verzeichnispfad (aus Windows Explorer kopiert) C:\MGD Recycling\Rechnungen\Handel\2026 (flexibel durch das Makro)
Speicherordner sind von 2026 bis 2040 vorhanden.
Speichername wird aus Zelle „DU93“ übernommen.


Option Explicit

Private Sub CommandButton1_Click()
Sheets("Rechnung").PrintOut , , 2
Sheets("Rechnung").ExportAsFixedFormat 0, _
"C:\MGD Recycling\Rechnungen\Handel\" & _
CStr(Year(Date)) & "\" & Sheets("Handel").Range("DU93")
End Sub


Makro druckt die Rechnung zweimal aus, speichert aber nicht

Laufzeitfehler 1004

Anwendungs- oder objektdefinierter Fehler

Markiert wird von VBA (alles gelb)

Sheets("Rechnung").ExportAsFixedFormat 0, _
"C:\MGD Recycling\Rechnungen\Handel\" & _
CStr(Year(Date)) & "\" & Sheets("Handel").Range("DU93")

Ich hoffe, ihr könnt mir helfen, da mein VBA Wissen noch einem Glühwürmchen gleicht.

Vielen Dank

Hans-Georg