Nächstes Datum selektieren
Burghard
ich suche eine VBA-Lösung für dieses Problem:
Ich möchte innerhalb von diversen Datumsangabe in der Spalte "C" das nächste Datum innerhalb der nächsten 30 Tage anspringen.
Dieser Code selektiert nur das aktuelle Datum:
Sub Jump2Heute()
Dim z As Range, sp As Range
Set sp = Range("C1:C200")
For Each z In sp
If z.Value = Date Then
Cells(z.Row, z.Column).Select
Exit For
End If
Next z
End Sub
So stelle ich mir das aber vor:
Sub Jump2_naechstes_Datum()
Dim z As Range, sp As Range
Set sp = Range("C1:C200")
For Each z In sp
If z.Value = von DATE aus gesehen das nächste Datum innerhalb der nächsten 30 Tage Then
Cells(z.Row, z.Column).Select
Exit For
End If
Next z
End Sub
Hilfe wäre nett.Schönen Gruß
Burghard