For Next Schleife ?
Leitz
Wie kann ich eine For Next Schleife so ändern, daß sie aufhört sobald die erste Übereinstimmung gefunden wurde?
Oder muß ich da was anders vewenden?
Sub DatumSuche()
Dim Datum As Date
Datum = Cells(3, 5) 'Testdatum
Dim a As Integer
For a = 100 To 3 Step -1
If Cells(a, 1).Text
Bitte um Eure Hilfe!Gruß
Leitz G.