ich habe folgendes Anliegen:
Ich möchte, dass eien Datei, beim öffnen automatisch eine Tabelle nach alle einträgen filtert, die in den nächsten 60 Tagen anstehen.
Die gefilterten Einträge soll er dann in einer Msgbox ausgeben.
Beispiel:
vor dem Filtern
Spalte A Spalte B
Begriff 1 14.04.2016
Begriff 2 14.09.2016
nach dem Filten
Spalte A Spalte B
Begriff 1 14.04.2016 ----> Msgbox("Begriff1")
Ich habe schon etwas Vorarbeit geleistet und schonmal angefangen zu programmieren, bin dann aber beim der Integration der Filterdaten abgestorben.
Hier mein Code bisher:
Sub Workbook_Open()
Dim Datum As Date
Dim Heute As Date
Dim Titel As String
Datum = Date + 60
Heute = Date
Worksheets(1).Activate
Range("A6:B6").AutoFilter Field:=2, Criteria1:="=" & CDbl(Heute)
If ...... Then MsgBox "..........."
End Sub
Habt ihr einen Ansatz ?Vielen Dank im Voraus
Gruß
Sascha