Private Sub CommandButton1_Click()
Dim Zeile As Integer
For Zeile = 0 To 2847
Range("V3").Select
If ActiveCell.Offset(Zeile, 0).Value < Date Then
ActiveCell.Offset(Zeile, 3).Value = "Achtung"
End If
Next
End Sub
In jeder Zeile soll überprüft werden ob das Datum darin, das heutige unterschreitet, ist das der Fall taucht iun der gleichen Zeile, aber 3 Spalten weiter Achtung auf.
Von der Theorie her müsste es klappen, tuts aber leider in der Praxis nicht. Was ist falsch? |