Farbe ändern mit if und Worksheet_Change geht nich
22.07.2003 15:06:11
Xico
ich habe folgende Codes, die sich in eine Richtung immer aufhängen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1) = "test" Then
Target.Font.ColorIndex = 3
End If
End Sub
Private Sub CommandButton3_Click()
If Cells(1, 1) = "test" Then
Cells(1, 1) = 0
Else
Cells(1, 1) = "test"
End If
Cells(41, 5).Select
End Sub
Weiss jemand warum?!?
Danke & Gurss
Xico