Thema Datum  Von Nutzer Rating
Antwort
Rot SaveAs verursacht Fehler
21.11.2024 20:08:36 Christian
NotSolved
22.11.2024 06:17:34 Gast75307
NotSolved
25.11.2024 09:05:24 Christian
NotSolved
25.11.2024 11:02:31 Gast7777
NotSolved
25.11.2024 15:50:23 Christian
NotSolved
25.11.2024 15:52:16 Gast7777
NotSolved
25.11.2024 16:00:48 Gast68887
NotSolved
25.11.2024 16:07:32 Gast7777
NotSolved
25.11.2024 16:20:11 Gast56593
NotSolved
25.11.2024 16:24:38 Gast7777
NotSolved
25.11.2024 16:22:11 Gast7777
NotSolved
25.11.2024 16:28:34 Gast5295
NotSolved
25.11.2024 16:30:51 Gast7777
Solved
25.11.2024 16:43:45 Gast8564
NotSolved
25.11.2024 17:27:39 Gast34244
NotSolved
26.11.2024 20:18:38 Gast79970
NotSolved
29.11.2024 17:11:48 Gast15998
NotSolved

Ansicht des Beitrags:
Von:
Christian
Datum:
21.11.2024 20:08:36
Views:
109
Rating: Antwort:
  Ja
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_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


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 20:08:36 Christian
NotSolved
22.11.2024 06:17:34 Gast75307
NotSolved
25.11.2024 09:05:24 Christian
NotSolved
25.11.2024 11:02:31 Gast7777
NotSolved
25.11.2024 15:50:23 Christian
NotSolved
25.11.2024 15:52:16 Gast7777
NotSolved
25.11.2024 16:00:48 Gast68887
NotSolved
25.11.2024 16:07:32 Gast7777
NotSolved
25.11.2024 16:20:11 Gast56593
NotSolved
25.11.2024 16:24:38 Gast7777
NotSolved
25.11.2024 16:22:11 Gast7777
NotSolved
25.11.2024 16:28:34 Gast5295
NotSolved
25.11.2024 16:30:51 Gast7777
Solved
25.11.2024 16:43:45 Gast8564
NotSolved
25.11.2024 17:27:39 Gast34244
NotSolved
26.11.2024 20:18:38 Gast79970
NotSolved
29.11.2024 17:11:48 Gast15998
NotSolved