Schleife kleines Problem
Joop
ich habe folgende Schleife aufgebaut. In Spalte 1 wird der Zellwert überprüft und wenn die Bedingung erfüllt ist, wird entsprechend der Befehl ausgeführt. (32874 = 01.01.1990) Meine Frage ist nun, wie kann ich die Schleife "solange" laufen lassen, bis der Zellwert genau dem obengenannten Wert (32874) entspricht?
Hier der Code
Sub Dates3()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets("Index_Calculation").Select
Dim a As Long
For a = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
On Error Resume Next
If Cells(a, 1).Value > 32874 And Cells(a + 1, 2).Value = "" Then
Range(Cells(a, 1), Cells(a, 69)).Select
Selection.Copy
Cells(a + 1, 1).Select
ActiveSheet.Paste
End If
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub