Hallo zusammen,

ich habe ein Makro, dass die nächsten 30 Zeilen ein- und ausblenden soll. Allerdings macht der das nur bei der Aktiven Zelle und nicht bei den nächsten Zeilen.
Wie kann ich es einstellen, dass die nächsten Zeilen unter der Schaltfläche ausgeblendet werden?

Bsp: Die Schaltfläche ist in Zeile 11 und 12 --> Also soll sie Zeile 13-42 ausblenden.

Private Sub ToggleButton3_Click()
Dim i As Double
ActiveCell.Activate
i = ActiveCell.Row
    With ToggleButton3
    .Caption = "Wert 1  " & IIf(.Value = True, "eingeblendet", "ausgeblendet")
    .BackColor = IIf(.Value = True, &HFF&, &HFF00&)
    For i = i To i + 30
        If .Value = True Then
            Rows(i).EntireRow.Hidden = False
              Else
            Rows(i).EntireRow.Hidden = True
        End If
       Next
    End With

End Sub