Via Button Datum vergleichen und Aktion

[MasiGepetto]

Hallo zusammen!

Ich stehe mal wieder vor einem kleinem Problem...

Ich möchte dass via Button-Druck alle Datumswerte in Spalte O verglichen werden und wenn das Datum kleiner oder gleich heute ist in Spalte S ein "X" gesetzt wird.

Ich stehe grade echt auf dem Schlauch!

Vielen Dank schon mal im Voraus!  :17:

[Jonas0806]

Hallo,

Code:

Option Explicit

Sub CheckDate()
   Dim i As Long
   
   With Tabelle1
       For i = 1 To .Cells(Rows.Count, "O").End(xlUp).Row
           If CDate(.Cells(i, "O").Value) <= Now Then .Cells(i, "S").Value = "X"
       Next i
   End With
End Sub

Das würde allerdings auch ohne VBA gehen...