Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Gesuchte Werte in Spalte farblich markieren

Gesuchte Werte in Spalte farblich markieren
21.12.2007 09:15:00
Josef
Guten Morgen!
Ich habe in der Tabelle1, Spalte AB in ca 42000 Zeilen Werte stehen. Überall dort wo die Buchstaben "MKP" in den Werten vorkommen sollen diese Zellen farblich markiert werden.
Wie würde hier bitte eine VBA Lösung lauten?
Danke
Josef

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gesuchte Werte in Spalte farblich markieren
21.12.2007 09:18:46
Hajo_Zi
Hallo Josef,
das geht ohne VBA mit Format, bedingte Formatierung.

AW: Gesuchte Werte in Spalte farblich markieren
21.12.2007 12:59:00
Daniel
Hi
eine einfache VBA-Lösung würde so aussehen:

sub Färben()
dim Zelle as range
range("Ab:AB").interior.colorindex=xlnone
for each Zelle in Range("AB1:AB" & Range("AB65536").end(xlup).row)
if Zelle.value like  "*MKP*" then Zelle.interior.colorindex = 6
next
end sub


aber sie wird dich aufgrund langer Laufzeiten nicht glücklich machen.
besser ist die von HaJo erwähnte BedingteFormatierung
entweder von Hand einfügen, mit dieser Formel:" =ZÄHLENWENN(AB1;"*MKP*")>0",
oder wenn es als Makro sein muss:


With Range("AB")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=ZÄHLENWENN(AB1;""*MKP*"")>0"
.FormatConditions(1).Interior.ColorIndex = 6
End With


Gruß, Daniel

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige