Fehlerabfangen
15.05.2006 11:58:24
Helen
Ich würde nun gerne den Fehler abfangen, sofern diese Nummer gar nicht existiert.
Weiss jemand, wie das geht?
Lg und Danke
Sub cmdGo_Click()
Dim neuBlatt As Worksheet
Do
For Each neuBlatt In Worksheets
neuBlatt.Select
If ActiveSheet.Name = frmÄndern.txtNummerSuche Then Exit Do
Next neuBlatt
Loop
Range("F9").Select
Unload Me
End Sub
Anzeige