Methode zur serienmäßigen Erst. von Kontrollkäst.
08.09.2014 10:50:47
Kontrollkäst.
ich habe eine Tabelle mit mehreren Spalten(14) und möchte nun in jede Zelle ein Kontrollkästchen einfügen, welches beim Anklicken die dahinter liegende Zelle färbt. Das ist ansich kein Problem. Ich versuche nun aber eine Methode zu erstellen, die mir für sämtliche Zeilen eins solches Kontrollkästchen automatisch einfügt.
Für eine jeweilige Zelle benutze ich folgenden Code:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("D2").Interior.ColorIndex = 4
Else
Range("D2").Interior.ColorIndex = 3
End If
End Sub
Es ist ziemlich mühsam für jede Zelle eine eigene Methode zu schreiben. Das lässt sich doch bestimmt schneller lösen, da meine Tabelle etliche Zeilen hat?
Vielen Dank!!
Stephan