Makro ergänzen möglich?
22.09.2005 14:56:31
Achim
Wer kann dieses Makro ergänzen!!!!
Und zwar... wenn die CheckBox1 nicht angeklickt wurde (also leer) soll der Eintrag
in der "DatenErfassung" C2.Value = "Falsch nicht angekreutzt" und in D2.Value ="3"eingetragen werden.
Anbei das Makro
Private Sub CheckBox1_Click()
With CheckBox1
If .Value Then
.BackStyle = fmBackStyleOpaque
.BackColor = RGB(255, 0, 0)
Sheets("DatenErfasser").Range("C2").Value = "Falsch"
Sheets("DatenErfasser").Range("D2").Value = "3"
Else
.BackStyle = fmBackStyleTransparent
End If
End With
CheckBox1.Value = True
End Sub
Danke und
Gruß Achim H.