nächstes folgendes Datum
13.07.2020 14:04:13
Antje
ich würde gerne in meinem Pop-up in der TextBoxFd stets das als nächstes folgende Datum zum heutigen Datum ausgeben, die Daten um die es geht sollen aus der ersten Spalte des Excelsheets ermittelt/verglichen werden um mir das korrekte Datum auszugeben. Kann mir bei dem Code jemand helfen? Ich stehe da bisschen auf dem Schlauch.
Private Sub TextBoxFd_Change()
JuengsteDatum = WorksheetFunction.Max(Worksheets("VVP-Tool").Columns(1))
For i = 2 To AnzahlLetzteSpalte - 1
Datum = Worksheets("VVP-Tool").Cells(i, 1).Value
If Datum > JuengsteDatum Then
JuengsteDatum = Datum
End If
Next i
End Sub
Bisher habe ich diesen Code, aber der gibt mir ja nur das jüngste Datum aus, aber nicht das folgende nach dem heutigen datum.
Viele Grüße
Antje