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
|