ToggleButtons funktionieren nicht mit Blattschutz
08.08.2007 08:38:00
Patricia
Ich habe ein großes Problem und zwar habe ich in meiner Arbeitsmappe mehrere ToggleButtons. Mittels diesen möchte ich Zeilen ausblenden in denen nichts geschrieben ist. Verknüpft sind diese mit einer ausgeblendeten Spalte die mittels einer Wennfunktion den beschriebenen Zeilen eine 1 zuteilt und den anderen nichts. Wenn ich nun den Blattschutz darüber lege funktionieren die ToggleButtons nicht mehr. Es heißt dann, dass der Blattschutz unbedingt entfernt werden muss. Im VBA wird dann ein Problem in der 3. Zeile (Range...) angezeigt.
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Range("a10:a228").AutoFilter Field:=1, Criteria1:=""
ToggleButton1.BackColor = RGB(0, 255, 255)
ToggleButton1.Caption = "Leerpositionen einblenden"
Else
Range("a10:a228").AutoFilter Field:=1
ToggleButton1.BackColor = RGB(0, 0, 255)
ToggleButton1.Caption = "Leerpositionen ausblenden"
End If
End Sub
Vielleicht kann mir jemand helfen. Ich bräuchte das ganz dringend.
Bin übrigens absoluter VBA-Anfänger und hab keine Ahnung davon.
vielen dank
Patricia