Thema Datum  Von Nutzer Rating
Antwort
Rot SaveAs verursacht Fehler
21.11.2024 18:24:55 Christian
Solved
21.11.2024 20:27:56 Gast33996
NotSolved
22.11.2024 09:11:14 Christian
NotSolved
22.11.2024 12:51:29 Gast78563
NotSolved
29.11.2024 17:20:38 Gast46852
Solved
29.11.2024 18:26:37 Christian
NotSolved

Ansicht des Beitrags:
Von:
Christian
Datum:
21.11.2024 18:24:55
Views:
112
Rating: Antwort:
 Nein
Thema:
SaveAs verursacht Fehler

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_ALTMARK_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. 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot SaveAs verursacht Fehler
21.11.2024 18:24:55 Christian
Solved
21.11.2024 20:27:56 Gast33996
NotSolved
22.11.2024 09:11:14 Christian
NotSolved
22.11.2024 12:51:29 Gast78563
NotSolved
29.11.2024 17:20:38 Gast46852
Solved
29.11.2024 18:26:37 Christian
NotSolved