Hilfe Makro Datumsfilter

[Nuraya]

Hallo Zusammen

Ich habe probiert in einer Excel-Datei ein Makro zu schreiben, dass mir eine Tabelle, die auch regelmässig erweitert werden soll, die Einträge nach dem Datum zum Filtern. 
Leider findet er zu den jeweiligen Einträgen kein Datum :/ 
Habe probiert die Formatierung des Datums zu ändern, hatte jedoch keinen Erfolg. 

Kann mir einer von euch dabei helfen?

Vielen Dank!
Gruss
Nuraya
  Datensammlung_Datum_Filtern.xlsm (Größe: 135,17 KB / Downloads: 3)

[Kuwer]

Hallo Nuraya,

Code:

Sub FilterByDate()
    Dim selectedDate As Double
    Dim ws As Worksheet
    Dim rng As Range
    Dim dateString As String
    
    ' Manuell das Datum in diesem Format eingeben: TT.MM.JJJJ
    dateString = InputBox("Gib das Datum im Format TT.MM.JJJJ ein:", "Datum eingeben")
    
    ' Überprüfe, ob ein Datum eingegeben wurde
    If IsDate(dateString) Then
        ' Wenn ein gültiges Datum eingegeben wurde, konvertiere es in ein Date-Objekt
        selectedDate = CDbl(CDate(dateString))
        
        ' Definiere den Arbeitsblattbereich, den du filtern möchtest
        Set ws = ThisWorkbook.Worksheets("Drucken")
        Set rng = ws.Range("A6:K99999")
        
        ' Deaktiviere vorhandene Filter, um sicherzustellen, dass der neue Filter korrekt angewendet wird
        ws.AutoFilterMode = False
        
        ' Filtere den Bereich basierend auf dem ausgewählten Datum
        rng.AutoFilter Field:=1, _
                   Criteria1:=">=" & selectedDate, _
                    Operator:=xlAnd, _
                   Criteria2:="<=" & selectedDate
    Else
        ' Wenn kein gültiges Datum eingegeben wurde, zeige eine Fehlermeldung
        MsgBox "Ungültiges Datum eingegeben!"
    End If
End Sub

Gruß, Uwe

[Nuraya]

Danke für die Hilfe :)