CheckBox
08.02.2003 15:00:57
Steffen
Ich habe in eine UserForm eine CheckBox eingefügt und mit Folgendem Code mit den Zellen M1 bis M30 in Verbindung gebracht:
Private Sub CheckBox1_Click()
Dim i%
If CheckBox1.Value = True Then
i = Range("F12").Value
If Not IsNumeric(i) Then Exit Sub
Range("m" & i) = 1
Else
End If
End Sub
In F12 wird von 1 bis 30 gezählt. Das Funktioniert auch gut.
Ich möchte aber, wenn in einer Zelle von M1 bis M30 schon die Zahl 1 steht, daß automatisch der Haken in die CheckBox eingetragen wird. Ist das zu lösen?
mfg
Steffen