CheckBox1 Makro geht nicht
22.09.2005 10:34:04
Achim
Wer kann helfen?
Habe in meiner UserForm eine CheckBox.Nachdem anklicken wird die CheckBox1 in rot angezeigt das ist auch richtig. Nun soll mein Makro auch nach dem anklicken in der Tabelle DatenErfasser in Range A2 Nein hineinschreiben. Das tut es leider nicht ?
Anbei mein Makro
Private Sub CheckBox1_Click()
With CheckBox1
If .Value Then
.BackStyle = fmBackStyleOpaque
.BackColor = RGB(255, 0, 0)
Else
.BackStyle = fmBackStyleTransparent
Sheets("DatenErfasser").Activate
Range("I2").Select
If .Value = True Then
ActiveCell.Value = "Nein"
End If
End If
End With
End Sub
Gruß Achim H.