Hey zusammen,

in meinem Code funktioniert der Part mit dem AdvancedFilter nicht..
Ich kann mir vorstellen, dass es an der Zuordnung rgCriteria liegt..
Ich suche im Prinzip nach einem Datum in zwei verschiedenen Spalten..aber obwohl das Datum vorkommt, wird es weggefiltert
Die zu filternden Daten sind auch beide vom Typ Datum...
Ich weiß ist kompliziert ohne Datei.

Danke schon einmal.

Option Explicit

Sub AdvancedFilter()

Dim my_wb As Workbook
Dim my_ws As Worksheet
Dim my_wb2 As Workbook
Dim my_ws2 As Worksheet

Dim Verz As String, Datei As String

Verz = "C:\Users\julia\Desktop\"

Workbooks.Open Filename:=Verz & "Lenkungsliste.xlsx"

Set my_wb = Workbooks("Lenkungsliste.xlsx")
Set my_ws = my_wb.Worksheets("PZM21")
Set my_wb2 = Workbooks("Hallo.xlsm")
Set my_ws2 = my_wb2.Worksheets("Tabelle1")

my_ws.Activate

my_ws.Range("A1:AE400").Copy _
Destination:=my_ws2.Range("A1")

my_ws2.Range("O9:O300").Copy
my_ws2.Range("O9:O300").PasteSpecial xlPasteValues
Application.CutCopyMode = False

Range("Q9:Q300").Copy
Range("Q9:Q300").PasteSpecial xlPasteValues
Application.CutCopyMode = False

my_ws2.Range("A8:R8").Copy _
    Destination:=my_ws2.Range("T1")

Dim Datumplus As Date
Dim d As String

Datumplus = DateAdd("d", 3, Date)

my_ws2.Range("AH2").Value = Datumplus
my_ws2.Range("AJ2").Value = Datumplus

my_ws2.Range("AH2").Copy
my_ws2.Range("AH2").PasteSpecial xlPasteValues
Application.CutCopyMode = False

my_ws2.Range("AJ2").Copy
my_ws2.Range("AJ2").PasteSpecial xlPasteValues
Application.CutCopyMode = False

Dim rgData As Range, rgCriteria As Range
Set rgData = my_ws2.Range("A8").CurrentRegion
Set rgCriteria = my_ws2.Range("T1").CurrentRegion
 
rgData.AdvancedFilter xlFilterInPlace, rgCriteria
 
Range("A1:AM5").Clear
ActiveSheet.Columns("A:R").EntireColumn.AutoFit

my_wb.Close savechanges:=False

End Sub