Fehler abfangen
03.12.2004 14:30:18
Matthias
ich möchte einen Fehler abfangen, weiß aber nicht wie ich im folgenden Beispiel die Prüfung auf eine bestimmte Fehlermeldung erreiche, ohne das das Makro unterbrochen wird.
Beispiel:
Sub t()
Application.DisplayAlerts = False
Sheets(2).Name = Sheets(1).Name
If Err.Number = 1004 Then
MsgBox "Ein Sheet mit diesem Namen existiert bereits.", vbOKOnly
Exit Sub
End If
End Sub
Vielen Dank für einen Tipp.
Matthias
Anzeige