ich krieg das mit dem Error nicht hin!
Wenn ein Error auftritt, weil der CommandButton306 nicht vorhanden ist, soll Blatt = a durchlaufen werden, wenn es keinen Error gibt Blatt = a - 1
Bei mir durchläuft er aber immer den Error, warum?
Der Code:
For a = 1 To Sheets.Count
If Sheets(a).Name Like Sheets(1).CommandButton305.Caption Then
Start = a
Start1 = a + 1
End If
On Error Resume Next
If Sheets(a).Name Like Sheets(1).CommandButton306.Caption Then
If Err.Numer 0 Then
Ende = a
Else
Ende = a - 1
End If
End If
Next a
vielen Dank für eure Hilfe!!!
Gruß Tobias