Fehlerbehandlung
18.09.2005 17:13:51
Harry
ich würde in meinem Code gerne eine Fehlerbehandlungsroutine einbauen. Leider will mein Code nicht so wie ich!
On Error Resume Next
For a = 1 To Sheets.Count
If Sheets(a).Name Like Sheets(1).CommandButton310.Caption Then
Start = a
Start1 = a + 1
ElseIf Sheets(a).Name Like Sheets(1).CommandButton311.Caption Then
If Not Err.Numer 0 Then
Ende = a
Else
Ende = a - 1
End If
End If
Next a
Er durchläuft die Anweisung bei If Err.Numer auch wenn kein Error auftritt!
Wie kann ich das so hinbekommen, dass er den Code wirklich nur dann durchläuft wenn ein Laufzeitfehler auftritt(, da es den CommandButton nicht gibt)?
Vielen Dank schon mal im Voraus!!!
Beste Grüße
Harry