Suche Auflistung der Fehlernummern für Bsp
21.01.2004 14:46:51
Peter
ich möchte auf best. Fehler konkret reagieren.
Dazu benötige ich eine Auflistung der Fehler.
Kann mir jemand helfen?
Danke Peter
Option Explicit
Sub ShNameDoppelt1()
Dim Auswahl As String
On Error GoTo Fehler
'Fehler produzieren
Worksheets(1).Name = "Dummy"
Sheets.Add
ActiveSheet.Name = "Dummy"
'Fehlerbehebung
Fehler: If Err = 1004 Then
Application.DisplayAlerts = False
Sheets("Dummy").Delete
Application.DisplayAlerts = True
End If
End Sub
Anzeige