Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Excel 2007 Bedingte Formatierung
#1
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
Antworten Top
#2
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.
Antworten Top
#3
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)
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste