Code ändern
31.07.2017 04:53:30
Tanja
kann mir jemand helfen.
wie kann ich diesen Code nicht über einen Button sondern das er anschließend nach meinen vorigen code mit heranhänge.
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 4 Or .Column = 9 Then
If .Column = 4 Then If .Value = 76 Then .Offset(0, 3).Interior.ColorIndex = 3
ElseIf
LCase$(.Offset(0, 5)) "start" Then .Offset(0, 3).Interior.ColorIndex = 0
End If
Else
If LCase$(.Value) = "start" Then .Offset(0, -2).Interior.ColorIndex = 3
ElseIf .Offset(0, -5) 76 Then .Offset(0, -2).Interior.ColorIndex = 0
End If
End If
End If
End With
End Sub