Hallo Gemeinde.
Ich hätte folgendes kleines Problem.
Ich möchte Zellen per Makro einfärben , was uach bis jetzt wunderbar funktioniert.
Jetzt hab ich das Problem, das ich immer eine Variable in der Zelle habe und eine Konstante
zb. Maier New ( Maier ist die variable und New wäre die Konstante )
Wie muß ich die Befehlzzeile abändern , das es funzt ?
Weiß das jemand
Hoffe mein anliegen ist jetzt nicht zu verwirrend ..
danke schonmal
Was ich bis jetzt habe und auch auf die anderen Farb markierungen funzt..
Dim rngBereich As Range
Dim rngZelle As Range
Dim lngLetzte As Long
lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
Set rngBereich = Range("o1:p" & lngLetzte)
For Each rngZelle In rngBereich
With rngZelle
Select Case .Value
Case "Maier"
.Interior.Color = RGB(255, 11, 255)

Das müßte irgendwie geändert werden ( da maier in anderen namen wechselt )
Case "Maier New"
.Interior.Color = RGB(255, 11, 255)
End Select
End With