Microsoft Excel

Herbers Excel/VBA-Archiv

Datum vergleichen und Zellen färben | Herbers Excel-Forum


Betrifft: Datum vergleichen und Zellen färben von: Frank
Geschrieben am: 02.02.2010 18:02:22

Hallo zusammen,
ich habe ein Problem,
ich würde gerne in einer Spalte das Datum mit dem heutigen Datum vergleichen, und falls dieses in 20 Tagen das aktuelle werden wird, dass die entsprechende Zelle einen roten hintergrund bekommt.
Also so in der Art:


Sub pruef()
Dzeile = 2
Izeile = 2
datum = Date

Do While ActiveSheet.Cells(Dzeile, "D") <> ""
If datumzelle = datum - 20Tage Then
Sheets("CheckRTW").Cells(Dzeile, 4).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
Dzeile = Dzeile + 1
End If
Loop


Ich weiss nicht, wie ich das Datumsformat miteinander vergleichen kann.
Das Makro sollte evtl. bei jedem öffnen der Datei selbstständig starten, was kann man da programmieren?

Danke im Voraus.

Gruß Frank

  

Betrifft: AW: Datum vergleichen und Zellen färben von: Michel2010
Geschrieben am: 02.02.2010 21:03:29

Warum löst du das nicht mit "Bedingter Formatierung" ? Da muss man doch nichts programmieren.


  

Betrifft: AW: Datum vergleichen und Zellen färben von: Frank
Geschrieben am: 03.02.2010 16:26:14

naja ich habe das schon ausprobiert, aber da kann ich keine Zahlenangabe machen wie:
Färbe Zelle rot, wenn Zukunftdatum in 20Tagen ab HeuteDatum erreicht ist.
Oder geht das doch irgendwie?


  

Betrifft: AW: Datum vergleichen und Zellen färben von: Hajo_Zi
Geschrieben am: 03.02.2010 16:27:31

Hallo Frank,

Zellwert Ist größer als Heute()+20

GrußformelHomepage


  

Betrifft: AW: Datum vergleichen und Zellen färben von: Frank
Geschrieben am: 03.02.2010 17:30:38

ok danke funktioniert.

Gruß frank


Beiträge aus den Excel-Beispielen zum Thema "Datum vergleichen und Zellen färben"