Leider macht er es nicht. Er hat die Filterung drin, nur wird nichts angezeigt. Wenn ich schaue was in der Filterung ist steht da Größer oder gleich "30.10.2023" (habe deinen Code angepasst wie unten zusehen)

    With Tabelle18.Range("A1")

        '.AutoFilter 2, projektnummer
        '.AutoFilter 5, mitarbeiterName
        .AutoFilter Field:=1, Criteria1:=">=" & Format((DateSerial(2023, 10, 30)), "DD.MM.YYYY")

    End With