Datumsabgleich
11.03.2020 16:36:30
Hannah
ich habe leider nicht allzu viele VBA-Kenntnisse und bereits ähnliche Forenbeiträge durchforstet, aber bin leider immer noch verwirrt.
Ich möchte aus einer Excelliste eine Art Dashboard erstellen.
Wenn Termine aus der Liste näher als 30 Tage zum heutigen Datum rücken, sollen sie in einem anderen Tabellenblatt aufgelistet werden.
Ich habe leider nur das folgende Sub dazu gefunden. Jedoch ändert sich das heutige Datum ja fortlaufend und es muss auch im Sub aktualisiert werden.
Vielen Dank schon einmal und viele Grüße,
Hannah
Private Sub Daten
Dim rngDatum As Range
With Worksheets("Übersicht")
Set rngDatum = .Range("A1:A31").Find(Worksheets("Tag").Range("A1").Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngDatum Is Nothing Then
Worksheets("Tag").Range("C6:G6").Copy
rngDatum.Offset(0, 1).PasteSpecial
Application.CutCopyMode = False
Exit Sub