Hallo Liebe Makro Spezialisten ( ich bin leider keiner)
Ich möchte "nur", dass abhängig vom Zelleninhalt diese Zellen farblich gekennzeichnet werden.
Diese Bereich ist leider nicht immer gleich. Also brauche ich eine Funktion, die den Bereich von DQ bis zur letzte Spalte findet und dann meine Farben anwendet.
Ist das möglich?
Also der Bereich muss dann von der Spalte DQ bis zur letzten Spalte mit Daten festgelegt werden.
Überschriften sind in der Spalte D, darum lasse ich auch in der Spalte D nach der letzten Spalte suchen.
Das habe ich so versucht:
Dim LastRow As Long
LastRow = Range("D" & Rows.Count).End(xlUp).Row
Set MR = Range("DQ:" & last_column & LastRow)
Meine Farbcodierung sieht dann wie folgt aus:
For Each cell In MR
If cell.Value = "*" Then cell.Interior.ColorIndex = 19
If cell.Value = "." Then cell.Interior.ColorIndex = 19
If cell.Value = "S" Then cell.Interior.Color = RGB(255, 199, 206)
If cell.Value = "P" Then cell.Interior.Color = RGB(255, 199, 206)
If cell.Value = "P" Then cell.Font.Color = RGB(156, 0, 6)
If cell.Value = "S" Then cell.Font.Color = RGB(156, 0, 6)
If cell.Value = "V" Then cell.Interior.ColorIndex = 45
If cell.Value = "C" Then cell.Interior.Color = RGB(0, 176, 80)
If cell.Value = "A" Then cell.Interior.Color = RGB(0, 176, 80)
If cell.Value = "H" Then cell.Interior.Color = RGB(0, 176, 80)
If cell.Value = "Z" Then cell.Interior.Color = RGB(0, 200, 255)
If cell.Value = "N" Then cell.Interior.ColorIndex = 3
Next
Leider bekomme ich schon in der dritten Spalte eine Runtime error 1004.
Für euere Hilfe bin ich euch sehr dankbar.
Meine Office Version ist die Version 365
Gruss
Mike
|