ich arbeite aktuelle an einer Excel-Tabelle zur Personaleinsatzplanung.
Nun möchte ich ein Makro schreiben, dass die Spalte mit dem aktuellen Datum rot markiert ist.
Bis jetzt habe ich folgendes:
Private Sub Markieren()
ActiveSheet.Cells.Find(What:=Date). _
Resize(50, 1).Interior.ColorIndex = 3
End Sub
Aber irgendwie läuft das ganze Programm nicht so richtig. Zum Beispiel wenn ich die Spaltenlänge (hier:50) ändere, nimmt es die Tabelle nicht an.Wo liegt mein Fehler?
Ich hoffe mir kann jemand helfen :)
LG Nadine