VBA - Bedingte Formatierung
08.03.2017 10:15:27
Nik
Habe ein kleines Problem mit einer bedingten Formatierung die ich per VBA in einen Zellenbereich eintragen lasse.
https://www.herber.de/bbs/user/112026.xlsm
Ich nutze dazu folgende Formeln, um je nach Zellen Inhalt die Zellen in Gelb, Blau, Grün etc. zu färben.
' Bedingung für gelben Zellhintergrund
With .FormatConditions.Add(Type:=xlExpression, Formula1:= _
"=WENN(Z(0)S" & c.Column & "="""";;IstZahl(Finden(Z(0)S" & c.Column & ";""-BI-BN-BT-BU- _
_
BY-CP-CT-CW-D1-GN-GU-HC-HM-IH-IP-IT-TH-TI-TN-TP-UP-UZ-G-H-J-L-N-Q-"")))")
.Interior.ColorIndex = 6
End With
' Bedingung für blauen Zellhintergrund
With .FormatConditions.Add(Type:=xlExpression, Formula1:= _
"=WENN(Z(0)S" & c.Column & "="""";;IstZahl(Finden(Z(0)S" & c.Column & ";""-FA-FC-FD-FF- _
_
HB-KC-KD-KE-KF-KG-KH-KJ-KK-KM-TE-TG-TS-WE-WF-03-12-13-14-15-25-27-28-2E-2M-2N-2S-30-31-39-4E-4J- _
4M-61-64-6L-83-84-86-B1-B2-B5-B7-B9-BE-40-AR-B1-BA-BE-BG-BJ-C1-C2-CC-CI-CK-CM-DH-D-EC-EE-FF-FL-FW-G1-JM-LD-MX-O1-O2-OR-RA-RO-SH-SL-VM-VV-WE-"")))")
.Interior.ColorIndex = 37
End With
' Bedingung für grünen Zellhintergrund
With .FormatConditions.Add(Type:=xlExpression, Formula1:= _
"=WENN(Z(0)S" & c.Column & "="""";;IstZahl(Finden(Z(0)S" & c.Column & ";""-AS-BH-BM-BO- _
_
BP-EI-EP-ER-IA-IC-KA-KB-KP-KS-PC-PO-R1-RP-RU-SZ-T1-T2-ZA-ZC-"")))")
.Interior.ColorIndex = 43
End With
Das Problem erkläre ich am besten an einem Beispiel.
Wenn nun ein "X" im Zellbereich steht (hier in Zelle "D5"), welches nicht durch eine Formel gesucht wird, dann wird diese trotzdem in BLAU eingefärbt.
Ich glaube auch zu wissen warum, nämlich, weil ein anderes Suchkriterium für die Blaue Zellfärbung "MX" heisst.
Wie kann ich das abstellen, sodass er kein Teilergebnis findet und die Zelle einfärbt, sondern nur nach dem exakten Suchtext sucht und einfärbt.
In diesem Fall müsste die Zelle einfach bleiben wie sie ist, nämlich weiß bzw. ohne Färbung.
Danke im Voraus für jede Hilfe.
Gruss,
Nik