Kontrollkästchen mit Schaltfläche aktiv
31.10.2020 11:30:57
lars1972
ich habe eine Tabelle in der ich in Spalte A und B Kontrollkästchen angelegt habe. In Spalte C habe ich in jeder Zelle ein DropDown Menü. Die Werte lasse ich mir nochmal in Spalte R ausgeben.
Dann habe ich zwei Schaltflächen womit ich alle Kästchen jeweils Ein- oder Ausschalte.
Sub KontrollkaestchenAusschalten()
Dim Kaestchen As CheckBox
For Each Kaestchen In ActiveSheet.CheckBoxes
Kaestchen.Value = False
Next Kaestchen
End Sub
KontrollkaestchenEinschalten()
Dim Kaestchen As CheckBox
For Each Kaestchen In ActiveSheet.CheckBoxes
Kaestchen.Value = True
Next Kaestchen
End Sub
Das funktioniert auch alles so wie ich mir das vorstelle. Jetzt möchte ich aber weitere Schaltflächen einfügen. Schaltfläche "Wert1" = Wenn in Spalte R Wert1 steht, aktiviere die passenden Kontrollkästchen in Spalte A und B in der Zeile wo Wert1 steht. Schaltfläche "Wert2" = Wenn in Spalte R Wert2 steht, aktiviere die passenden Kontrollkästchen in Spalte A und B in der Zeile wo Wert steht. usw. Nur hab ich keinen Plan wie ich das anstellen kann und wäre für jede Hilfe Dankbar.