Zeien Ein-/Ausblenden geht nicht
08.07.2007 23:37:00
bully
mit folgenen Befehlen versuche ich, über einen Togglebutton, Zeilen erst auszublenden und wieder einzublenden. Leider habe ich immer folgende Fehlermeldung:
Laufzeitfehler '1004': Die Hidden-Eigenschaft des Range-Objektes kann nicht festgelegt werden.
Wer kann mir helfen?
Hier die Befehlszeilen:
Private Sub ToggleButton1_Click()
'Funktionen des TogglButton
Dim TB As ToggleButton
Set TB = ToggleButton1
If TB.Value = True Then
TB.Caption = "Ausblenden"
Call ZeilenAusblenden
Else
TB.Caption = "Einblenden"
Call ZeilenEinblenden
End If
End Sub
Sub ZeilenAusblenden()
Selection.EntireRow.Hidden = True
End Sub
Sub ZeilenEinblenden()
Selection.EntireRow.Hidden = False
End Sub
Wo liegt das Probelm?
Gruss bully
Anzeige