Hallo,
ich brauche ein Makro der wie die "Bedingte Formatierung" arbeitet.
Er soll folgendes prüfen und bei Fehler die Zeile rot markieren.
Text "A1= Apfel" und Text "B1= Grün" => wenn B1 nicht gleich grün dann Fehler
Danke
Folgenden Code habe ich Probiert:
Code:
Sub Test()
'
Columns("M:N").Select
Sheets(Array("Master_CCC")).Select
Selection.FormatConditions.Add Type:=xlTextString, String:="Beratung zu Produktnutzung", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlTextString, String:="Beratung / Bedienung allgemein", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Sheets("NFTs_CCC").Select
Selection.FormatConditions.Add Type:=xlTextString, String:="Beratung zu Produktnutzung", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlTextString, String:="Beratung / Bedienung allgemein", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Doch es soll in Konbination sein.
Das heißt:
in Spalte M steht "Beratung zu Produktnutzung"
in Spalte N steht "Beratung / Bedienung allgemein"
Steht in Spalte N was anderes, soll weder Spalte M noch Spalte N farbig markiert werden.
Hallo Fados,
erst mal eine Zwischenfrage. Dein Makro funktioniert nicht wie die bedingte Formatierung, sondern es setzt die bedingte Formatierung. Ist das wirklich so gewollt? Nach der ursprünglichen Frage müsstest Du "nur" mit
If Bedingung1 Or Bedingung2 Then ...
die Zellinhalte prüfen und dann die Farbe setzen oder nicht.
Ansonsten kannst Du auch eine Formel nehmen und die beiden Bedingungen mit ODER verknüpfen, im Prinzip
=ODER(Bedingung1;Bedingung2)