Ich suche eine Lösung für ein Phänomen. Ich habe mehrere OptionsButtons, durch die man Zeilen einblenden kann.
Mit dem CommandButton "Start" werden die Häckchen wieder entfernt. Das funktioniert mit folgender Formel:
Private Sub CheckBox1_Click()
Dim Bereich
Set Bereich = Worksheets("Tabelle1").Rows("2")
Bereich.Hidden = True = Not (Bereich.Hidden)
End Sub
Private Sub CheckBox2_Click()
Dim Bereich
Set Bereich = Worksheets("Tabelle1").Rows("4")
Bereich.Hidden = True = Not (Bereich.Hidden)
End Sub
Private Sub CheckBox3_Click()
Dim Bereich
Set Bereich = Worksheets("Tabelle1").Rows("6")
Bereich.Hidden = True = Not (Bereich.Hidden)
End Sub
…
Private Sub CommandButton1_Click()
Dim obj As Object
For Each obj In ActiveSheet.OLEObjects
If Left(obj.Name, 8) = "CheckBox" Then obj.Object.Value = False
Next obj
End Sub
Funktioniert fast einwandfrei. OptionButtons "Bsp.1" und "Bsp.2" blenden die Zeilen 2 und 4 beim Anklicken ein, der OptionsButton "Bsp.3" macht es genau umgekehrt. Er blendet die Zeile aus, obwohl die Formel ja ident mit den anderen ist.
Nun ist guter Rat teuer!
Danke Robert