Ich möchte den unten stehenden Code so angepasst haben, dass anstatt der Wert
="x"
folgende Formel erstellt wird:
=AF_Krit(B4)""
Der Makrorecoder schreibt leider immer
"=""AF_Krit(A4)"""""""""""
Mit nur die Hochkommas löschen funktioniert leider nicht.Wie müsste der folgende Code angepasst werden?
Range("Status").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""x"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
DankeViele Grüsse,
Peter