Excel VBA Datum mit dem heutigen Datum verlgeichen

Ich möchte gerne eine Programm schreiben das eine Spalte mit Datumswerte durchgeht und sie dann mit dem heutigen Datum vergleicht und sich 4 Wochen vor dem Treffen der Daten sich per MsgBox meldet. Leider weiß ich nicht wie ich da am besten vorgehe z.B. die SystemZeit/Datum rausbekomme und wie ich die am besten vergleiche und die Wochen rausbekomme? :/ Kann mir da jemand helfen ? mfg Dennis

Answer 1

[JavaTheHutt]

Wie liegen die Daten den vor? Es ist doch nicht so schwer, eine Datenmenge nach bestimmten Kriterien zu durchsuchen. Mit Linq bzw. ForEach-Schleifen solltest du es leicht haben.

Ich kenne mich nur mit C# aus, deswegen habe ich den Code von einem Konvertierungsprogramm umwandeln lassen. Ich weiß nicht, ob der Code kompilieren würde:

Dim daten = New List(Of DateTime)()
Dim heute = DateTime.Now.AddMonths(1)
For Each datum As var In daten
    If heute = datum Then
        MessageBox.Show(datum.ToShortDateString() + " ist in einem Monat.")
    End If
Next

Answer 2

[Barnold]

Mit VBA kenne ich mich leider nicht aus. Das aktuelle Datum kriegst in Excel aber mit der Formel heute().