Clever-Excel-Forum

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[attachment=49971]

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

Danke für die Hilfe :)

Nuraya

Kuwer

Nuraya