weiß jemand, wie man bei einer Fehlermeldung (Fehlermeldung Laufzeitfehler 1004)
eine 10 sekündige Pause macht und dann Resume?
Gruß aus Berlin,
Born
Sub Test()
'Hier Variablendeklarionen
Dim wks As Worksheet
'Aktion bei Fehler
On Error GoTo Fehler
'Ab hier dann die eigentlichen Anweisungen und Methoden
Set wks = Worksheets("TabelleXYZ") 'Beispiel --> Fehler 9 wenn Blatt fehlt
'usw.
'Fehlerbehandlung
Fehler:
With Err
If .Number 0 Then
Select Case .Number
Case 1004
'Fehler in Statuszeile anzeigen und nach Ja fortsetzen
If MsgBox("Fehler-Nr.: " & .Number & vbLf & .Description & vbLf & vbLf _
& "Ausführung fortsetzen?", vbYesNo + vbCritical, "Fehlermeldung") = vbYes Then
Resume
End If
Case Else
'Fehler anzeigen, dann Prozedur beenden
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End If
End With
End Sub