Checkbox
09.11.2017 08:41:25
Jürgen
In einer Excelliste will ich mit checkboxen arbeiten.
Ich habe eine Liste mit ca. 40 x 2 Checkboxen ( 2 in jeder Zeile E und G )die bei click auf
checkbox 1 den wert 1 in Zelle F ausgibt.
Checkbox 2 bei click checkbox 1 zurücksetzt und in F den Wert 2 ausgibt.
Soweit funktioniert das auch, aber wenn mgl. könnte man das nicht mit einem kürzeren code bewältigen.
Hier das VB:
Private Sub CheckBox1_Click()
ActiveCell.Select
With Range("F11")
If CheckBox1.Value = True Then
.Value = 1
CheckBox2 = False
End If
End With
End Sub
Private Sub CheckBox2_Click()
ActiveCell.Select
With Range("F11")
If CheckBox2.Value = True Then
.Value = 2
CheckBox1 = False
End If
End With
End Sub
Private Sub CheckBox3_Click()
ActiveCell.Select
With Range("F12")
If CheckBox3.Value = True Then
.Value = 1
CheckBox4 = False
End If
End With
End Sub
Private Sub CheckBox4_Click()
ActiveCell.Select
With Range("F12")
If CheckBox4.Value = True Then
.Value = 2
CheckBox3 = False
End If
End With
End Sub
Private Sub CheckBox5_Click()
ActiveCell.Select
With Range("F13")
If CheckBox5.Value = True Then
.Value = 1
CheckBox6 = False
End If
End With
End Sub
Private Sub CheckBox6_Click()
ActiveCell.Select
With Range("F13")
If CheckBox6.Value = True Then
.Value = 2
CheckBox5 = False
End If
End With
End Sub
usw.......
..
..
Zusätzlich sollte ich mit einem Buttom die Einträge in "F" alle bis Zeile 50 löschen können.
Gruss Jürgen