Bei Fehler Makro ausführen
22.09.2006 14:07:43
Gerhard
ich will, wenn ein Fehler auftritt, dass nur das Makro "neu" ausgeführt wird und nichts weiter.
Bei keinem Fehler soll nur eine MsgBox angezeigt werden. Es wird aber immer das Makro ausgeführt. Wo liegt mein Fehler?
Sub Eingabe_korrekt()
Application.DisplayAlerts = False
On Error GoTo Errorhandler
Sheets("Übersicht").Select
Cells.Find(What:=Sheets("Tabelle2").Range("C3"), After:=ActiveCell, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
MsgBox "Das Jahr ist schon angelegt !" & vbCrLf & vbCrLf & _
"Bitte wählen Sie ein anderes Jahr aus.", vbCritical, "Fehler !! Existiert bereits !"
Application.DisplayAlerts = True
Errorhandler: Call neu
End Sub