Guten Tag liebe VBA-Gemeinschaft,
Folgendes Problem: wenn in Spalte A das Datum aus Zelle G7 (A_1) nicht vorhanden ist und im Schlimmsten Fall erst ein Datum ein Paar Jahre später zu finden ist dann hängt sich der nachfolgende Code immer auf
bzw. braucht ewig.
Zur Frage: wie ginge das schneller ?

A_1 = CDbl(Range("G7"))
B_1 = CDbl(Range("G8"))
On Error Resume Next
If Not IsError(Application.Match(A_1, Range("A:A"), 0)) Then
A = Application.Match(A_1, Range("A:A"), 0)
Else
Do
A_1 = A_1 + 1
A = Application.Match(A_1, Range("A:A"), 0)
Loop Until Not IsError(Application.Match(A_1, Range("A:A"), 0))
End If
If Not IsError(Application.Match(B_1, Range("A:A"), 0)) Then
B = Application.Match(B_1, Range("A:A"), 0)
Else
Do
B_1 = B_1 - 1
B = Application.Match(B_1, Range("A:A"), 0)
Loop Until Not IsError(Application.Match(B_1, Range("A:A"), 0))
End If