VBA Zeilen ein-/ausblenden
06.06.2020 17:32:21
MarC
ich möchte mit OptionButtons Zeilen ein-/ausblenden in Abhängigkeit von dem gesuchten Begriff. Wenn ich den Button das erste mal betätige wird alles richtig ausgeführt. Beim Einblenden aller Zeilen ist auch noch alles okay. Aber wenn ich den OptionButton2 das zweite mal betätigte rutscht das File in eine Endlosschleife bzw. bleibt es nicht stehen. Anscheinend stimmt irgendetwas noch nicht. Könnte mir bitte jemand bei der Fehlersuche helfen?
Private Sub OptionButton1_Click()
With Worksheets("Tracking")
.Rows("6:200").EntireRow.Hidden = False
End With
End Sub
Private Sub OptionButton2_Click()
Dim GateRow As Long
With Worksheets("Tracking")
For GateRow = 6 To 200
If (.Cells(GateRow, 2)) = "test" Then
GateRow = GateRow - 1
.Rows(GateRow & ":200").EntireRow.Hidden = True
End If
Next GateRow
End With
End Sub