Hallo.

Ich stehe völlig auf dem Schlauch. Folgenden Code verwede ich:

'Einsatznummer und Startzeit in Bericht kopieren
    Dim WbDatei1 As Workbook 'Quelle
    Dim WbDatei2 As Workbook 'Ziel
    
    Set WbDatei1 = ThisWorkbook 'Quelle
    Set WbDatei2 = Workbooks.Open("I:\IUD\BwF-AMK\Wachmannschaft\2. Einsatzzentrale\09-Einsatzberichte\Einsatzberichte 2024\000000_BwFeuerwache_XXXXX_Einsatzbericht_0000_Version 9_neu.xlsm", ReadOnly:=True) 'Ziel, hier den richtigen Pfad eingeben!

    WbDatei2.Sheets("Bericht").Range("AB4").Value = WbDatei1.Sheets("Wachbuch").Range("J1").Value 'Einsatznummer
    WbDatei2.Sheets("Bericht").Range("AF1").Value = WbDatei1.Sheets("Wachbuch").Range("BJ15").Value 'Datum Einsatz
    WbDatei2.Sheets("Bericht").Range("A17").Value = WbDatei1.Sheets("Wachbuch").Range("BJ15").Value 'Datum Eingang Meldung
    WbDatei2.Sheets("Bericht").Range("G17").Value = WbDatei1.Sheets("Wachbuch").Range("BJ12").Value 'Uhrzeit Eingang Meldung
    WbDatei2.Sheets("Bericht").Range("M6").Value = WbDatei1.Sheets("Wachbuch").Range("BJ13").Value 'Diensthabende Schicht
    WbDatei2.Sheets("Bericht").Range("AF4").Value = WbDatei1.Sheets("Wachbuch").Range("BJ14").Value 'Jahreszahl
    WbDatei2.Sheets("Bericht").Range("A23").Value = TextBox2.Text 'Meldetext

    Workbooks("000000_BwFeuerwache_XXXXX_Einsatzbericht_0000_Version 9_neu.xlsm").SaveAs Filename:=WbDatei1.Sheets("Wachbuch").Range("BH9").Value

Application.ScreenUpdating = True

Application.CutCopyMode = False

Der Code funktioniert ohne Problem bis zum Punkt SaveAs. Hier bekomme ich immer eine Fehlermeldung.

"Laufzeitfehler `1004`:

Die Methode `SaveAs`für das Objekt `_Workbook`ist fehlgeschlagen "

Ich bin am Ende und bitte um Hilfe. Wo ist mein Denkfehler???

Danke schonmal an alle