könnte mir bitte jemand beim Bau des Codes helfen?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
If Zelle.Value = "Blfl." Then
diese und die beiden Zellen daneben rechts und die unter "Zelle" und die beiden Zellen daneben rechts mit
Colorindex = 3 ausfüllen.
End if
Besten Dank für die Hilfe.
Gruß
Karsten