checkbox reagiert nicht !
20.07.2005 14:25:46
maxpayne
habe in einem sheet eine checkbox installiert, die bei Klick die Schriftfarbe des Inhaltes in der Zelle verändern soll. Komischerweise funktioniert es im Debugmodus. Sobald ich es jedoch im Sheet selber anwende funzt es nicht mehr.
maxpayne
Sub chekbox2_click()
'sb2 für et optional
If CheckBox2.Value = True Then
Range("B28").Select
Range("b28").Font.ColorIndex = 1
Else
Range("B28").Select
Range("b28").Font.ColorIndex = 6
End If
End Sub
Anzeige