Checkboxen
17.09.2008 12:56:00
Gordon
ich habe auf einem Blatt 39 Checkboxen (CheckBox1 bis Checkbox40).
Der Code für Checkbox2 schaut so aus:
Private Sub CheckBox1_Click()
With Worksheets("Neu")
If CheckBox2.Value = True Then
.Columns("I:K").ColumnWidth = 10.14
.Columns("L").ColumnWidth = 1.71
ElseIf CheckBox2.Value = False Then
.Columns("I:L").ColumnWidth = 0
End If
End With
End Sub
Für CheckBox3 würde der Code so aussehen:
Private Sub CheckBox1_Click()
With Worksheets("Neu")
If CheckBox3.Value = True Then
.Columns("M:O").ColumnWidth = 10.14
.Columns("P").ColumnWidth = 1.71
ElseIf CheckBox3.Value = False Then
.Columns("M:P").ColumnWidth = 0
End If
End With
End Sub
Heißt also bei jeder weiteren Checkbox werden die die nächsten 4 Spaltenbreiten geändert. Ich könnte also dieses Codebeispiel 39mal hinkopieren, die Buchstaben der Spalten austauschen und es würde gehen.
Aber mich würde interessieren, ob man es nicht einfacher haben könnte bzw. einen Code mit Variablen für alle 39Checkboxen. Gibt es dort 'ne Möglichkeit?
Gruß
Gordon