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
|