' Hast du vielleicht noch eine Idee zu diesem Fall.
' Ich möchte Zeilenumbrüche in Zellen mit einer bedingten Formatierung belegen.
' Die Formel passt aber noch nicht 100%.
Gruss Michael
'Y ist eine Variable
' "=SUCHEN(""ZEICHEN(10)"";$" & Y & "2;1)
Range(Y & "2").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SUCHEN(""ZEICHEN(10)"";$" & Y & "2;1)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
|