Hey,

in meinem sheet habe ich eine Tabelle, von der ich per Button Zeile 2 bis 20 ausblenden bzw. einblenden möchte. Je nach vorher duchgeführter Aktion soll die Aufschrift des Buttons von "einblenden" zu "ausblenden" wechseln. Momentan sieht das ganze so aus:

Private Sub CommandButton1_Click()
Dim i As Integer

For i = 2 To 20
    If Rows(2).Hidden = False Then
     
        Rows(i).Hidden = True
        ActiveSheet.OLEObjects("CommandButton1").Object.Caption = "einblenden"

    Else
        Rows(i).Hidden = False
        ActiveSheet.OLEObjects("CommandButton1").Object.Caption = "ausblenden"

    End If
Next i
End Sub

Wie muss der Code abgeändert werden, sodass kein Objektfehler auftritt?

Vielen Dank,

Martina