problem mit einem vba code
28.03.2005 01:05:42
zwingi
das teil stammt von https://www.herber.de/forum/index.htm?https://www.herber.de/forum/messages/590537.html
das funktioniert wunderbar erstmal
nur wenn ich jetzt in die erste zeile wieder eine formel hinterlege so das die zeilen sich selbst verändern so arbeitet der code nicht von alleine
erst wenn ich die zelle merkirte und wieder verlasse
was muß ich da ändern ?
kann mir jemand helfen
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:F50")) Is Nothing Then
If Target.Count = 1 Then
If Target > 0 And Target < 6 Then
Target.Offset(1, 0).Interior.ColorIndex = Target
Else
Target.Offset(1, 0).Interior.ColorIndex = xlNone
End If
End If
End If
End Sub