Hallo zusammen,
ich habe mir eine Tabelle mit ca. 60 Checkboxen erstellt. Diese habe ich fest mit Zellen verbunden. Nun möchte ich, dass wenn ich in Spalte "E" den enthaltenen Text / Zahl lösche, dass die Haken der Checkboxen in dieser Zeile geschlöst werden.
Beim anklicken der Checkboxen färbe ich den Text ein, bzw. beim entfernen vom Haken wieder auf Standart Schwarz zurück. Die Checkboxen befinden sich in Spalte J und O.
Den Code für das löschen der anderen Spalten in einer Zeile / färben habe ich folgender Maßen gelöst:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E:E")) Is Nothing Then Exit Sub
If IsEmpty(Target) Then _
Intersect(Target.EntireRow, Range("A:B,F:F,K:P")).ClearContents
EnableDisable
End Sub
Private Sub CheckBox1_Click()
cbnr = 1
Call faerben
End Sub
Private Sub CheckBox2_Click()
cbnr = 2
Call faerben
End Sub
....
Gibt es eine Möglichkeit, dass ich nicht für jede Checkbox einen neuen Code erstellen muss, sondern einen für alle Checkboxen zusammen zu fügen? (faerben und löschen)
Vielen Dank.
Gruß Florian