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