Wenn Datum <=Date
15.05.2020 13:15:40
Gast1505
Habe einen Code der läuft nicht ganz wie gewünscht.
Vielleicht kann einer der Experten hier mir helfen.
Private Sub Workbook_Open()
Dim lngLetzte As Long
Dim lngZeile As Long
With Worksheets("Abgelaufen")
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(.Rows.Count, 2).End(xlUp).Row, .Rows. _
Count) + 1
End With
With Worksheets("Erfassen")
For lngZeile = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(.Rows.Count, 2).End(xlUp).Row, . _
Rows.Count) To 2 Step -1
If .Cells(lngZeile, 13)
Danke für die Bemühungen!