mit untenstehendem Makro prüfe ich Zellen auf Werte und lasse diese einfärben. Funktioniert soweit ganz prima.,
Nun möchte ich prüfen, wie man einen Teilstring prüfen kann. Wenn also in einer Zelle im Suchbereich der TeilString "eing" (plus irgendwelche andere Inhalte) vorkommt, färbe die Zelle... Die Anweisung Case is like .... gibt es wohl nicht... MID vielleicht?
Schon mal danke für die Hilfe.
With ActiveSheet
For i = 3 To .Cells(.Rows.Count, "K").End(xlUp).Row
Select Case .Cells(i, "K")
Case "*eing*" ---- hier auf Teilstring prüfen
.Cells(i, "K").Interior.Color = RGB(255, 255, 128) 'gelb
.Cells(i, "K").Offset(, 1).Resize(, 2).Interior.Color = xlNone
Case "Test"
.Cells(i, "K").Interior.Color = RGB(255, 192, 192)
Case "Apfel"
.Cells(i, "K").Resize(, 3).Interior.Color = xlNone
Case "--"
.Cells(i, "K").Resize(, 3).Interior.Color = xlNone
Case Else
.Cells(i, "K").Interior.Color = RGB(192, 255, 192)
Gruß
Chris