da ich nur bedingt mit dem Recorder Erfahrungen habe, folgendes Problem.
Mit dem Recorder sieht mein Versuch, die bedingte Formatierung für einen Bereich wie folgt aus - ich weiss dass das so ja nicht funktioniert...
Soll auch nur der Verdeutlichung meines Problems beitragen. Also so siehts mit dem Recorder aus: Sub formatierung2() Range("B15:I400").Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$J15=""X""" Selection.FormatConditions(1).Interior.ColorIndex = 6 Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$J15=""XX""" Selection.FormatConditions(2).Interior.ColorIndex = 3 Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$J15=""Y""" Selection.FormatConditions(3).Interior.ColorIndex = 15 Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$J15=""Z""" Selection.FormatConditions(3).Interior.ColorIndex = 35 Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$J15=""ZZ""" Selection.FormatConditions(3).Interior.ColorIndex = 38 Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$J15=""A""" Selection.FormatConditions(3).Interior.ColorIndex = 4 Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$J15=""AA""" Selection.FormatConditions(3).Interior.ColorIndex = 46 Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$J15=""ZF""" Selection.FormatConditions(3).Interior.ColorIndex = 28 Range("G9").Select End Sub
Kann mir bitte jemand helfen, das in VBA abzubilden.
Vielen Dank für jede Hilfe
Liebe Grüße
Gisela