Thema Datum  Von Nutzer Rating
Antwort
Rot ActiveWorkbook.Save Fehler 1004
12.02.2020 10:19:13 Alex
NotSolved
12.02.2020 14:35:55 Gast53729
NotSolved
12.02.2020 14:58:08 Gast28922
NotSolved

Ansicht des Beitrags:
Von:
Alex
Datum:
12.02.2020 10:19:13
Views:
95
Rating: Antwort:
  Ja
Thema:
ActiveWorkbook.Save Fehler 1004

Hallo Zusammen,

beim Versuch per ActiveWorkbook.Save zu speichern kommt manchmal die Fehlermeldung 1004, dass er nicht speichern kann. Man kann dann im debugging-Modus weiter/F5 drücken, er speichert und das Makro läuft weiter. 

Der Versuch den Fehler abzufangen will irgendwie nicht zuverlässig funktionieren. Wenn beim Speichern ein Fehler kommt, soll er 5s warten und es maximal 10mal nochmal versuchen zu speichern. Beim ersten vorkommenden Fehler scheint es zu funktionieren, danach nicht mehr.


            Windows(lv_Workbook).Activate
            Application.Calculation = xlCalculationAutomatic
            Application.ScreenUpdating = True
            
            lv_ErrorCounter = 0

            If 1 = 2 Then
NeuSave:
                Application.Wait (Now + TimeValue("0:00:05"))
                lv_ErrorCounter = lv_ErrorCounter + 1
            End If
            If lv_ErrorCounter > 10 Then
                On Error GoTo 0
            Else
                On Error GoTo NeuSave
            End If

            ActiveWorkbook.Save
            ActiveWindow.Close
            
            
            On Error GoTo 0
            Windows(lv_Quelle).Activate
            Sheets("TargetSheets").Activate
    
            Cells(lv_Zeile_TargetSheets, 6) = Now()
            Cells(lv_Zeile_TargetSheets, 6).NumberFormat = "dd/mm/yyyy hh:mm:ss"
            Cells(lv_Zeile_TargetSheets, 7) = lv_ErrorCounter
            
        lv_Zeile_TargetSheets = lv_Zeile_TargetSheets + 1
    Loop

 

Viele Grüße

Alex

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot ActiveWorkbook.Save Fehler 1004
12.02.2020 10:19:13 Alex
NotSolved
12.02.2020 14:35:55 Gast53729
NotSolved
12.02.2020 14:58:08 Gast28922
NotSolved