Ich such ein Script für folgende bedingte Formatierung: Wenn in A4:A ein x geschrieben wird, dann soll in der entsprechenden Zeile die Schrift cursiv und rot dargestellt werden.
Mit dem Makcroaufzeichern bekomme ich folgendes, wie das für jede Zeile abzuändern ist, hab ich nicht hinbekommen:
Sub Makro8()
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A$4=""x"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = False
.Italic = True
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Danke
Viele Grüsse,
Peter