ich verzweifle gerade daran, bei einer Excel den Bereich ab der als lngLastRow definierten Zeile einzufärben. Ich habe oben die lngLastRowHR definiert und lasse dann ab dort die Daten aus Sheet "TUD" einfügen. Jetzt will ich
genau diese Daten, die dort reinkopiert wurden einfärben lassen. (Im Optimalfall nur diese Daten, es kann aber auch gerne ab dieser Zeile bis ganz ans Ende der Excel eingefärbt werden, ist nicht so wichtig). Ich freue mich über jede Hilfe, da ich absoluter Anfänger bin.
lngLastRowHR = Sheets("HR").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("TUD").Range("A2:F" & lngLastRowDA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Suche").Range("M2:M4"), CopyToRange:=Range("A" & lngLastRowHR + 1) _
, Unique:=False
Sheets("HR").Range("A" & lngLastRowHR + 1).Interior.Color = RGB(255, 242, 204)
Irgendwo in der letzten Zeile muss der Fehler bei Range sein... Dort wusste ich nicht genau, wie man das formuliert.
Danke schon im Voraus!
Beste Grüße
Martin