Ich möchte per VBA über einen Button von der Zeile 8 bis zur Zeile 1000 jede zweite Zeile ausblenden und über einen anderen Button wieder einblenden.
Wie lautet der Code dafür?
Danke für eure Bemühungen im Vorraus...
Option Explicit
Private Sub ToggleButton1_Click()
Dim LoX As Long
Application.ScreenUpdating = False
If ToggleButton1.Value = True Then
For LoX = 1000 To 8 Step -2
Rows(LoX).EntireRow.Hidden = True
Next
Else
Rows("8:1000").EntireRow.Hidden = False
End If
Application.ScreenUpdating = True
End Sub
hier das Beispiel (zur besseren Visualisierung ist eine bedingte Formatierung gesetzt.)