Verzweigung geht nicht
Burghard
ich benutze eine Schaltfläche. Sobald ich aber verzweigen will, geht die Verzweigung nicht.
Kann mir jemand erklären, warum es nicht geht bzw. wie der Code richtig lauten muss?
Schönen Gruß
Burghard
.......................................
Kurzbeispiel:
Sub Test_Click()
On Error GoTo nix
zeilenAnzahl = Worksheets("ABC").Range("A1", Range("A1").End(xlDown)).Count
Application.ScreenUpdating = False
If zeilenAnzahl 84 Then
GoTo weiter3
End If
weiter2:
Sheets("X (2)").Activate
goto nix
weiter3:
Sheets("X (3)").Activate
Application.ScreenUpdating = True
nix:
End Sub