Hallo alle zusammen,
ich habe aus dem Forum hier folgendne Code entnommen, der in der Zeile 2 nach dem Monat sucht und dort hin springt. Kann man diesen Code dahingehend abändern, dass er die Jahreszahl nicht berücksichtigt? Ich habe in der Reihe 3 nämlich das Datum vom kommenden Jahr. Wenn ich es 2018 noch öffne, dann findet er die Zahlen nicht.
Für eine Lösung wäre ich euch dankbar.
Dim rng As Range
Dim lngDatum As Long
lngDatum = CLng(Date)
For Each rng In Range("B2:APP2") 'Bereich anpassen
If IsDate(rng) Then
If CLng(rng) = lngDatum Then
Application.GoTo rng.Offset(0, 0), True
GoTo Schleife_Ausgang
End If
End If
Next
Schleife_Ausgang:
Set rng = Nothing