ich habe ein Problem. Ich möchte in einem von einer Worksheet über einen Advanced Filter eine Tabelle in auf einem anderen Worksheet erstellen. Ich habe das bei einem anderen File schonmal hinbekommen und basierend auf diesen diesen Code gemacht. Im File könnt ihr noch 2 weitere Tabellen sehen. Ziel ist es am Ende alle "1" aus "AAA" mit "2" und "3" deklarierten Zeilen aus Spalte "CCC" von AAA-FFF in EINER Tabelle auf einem anderen Worksheet "Output" darzustellen. Leider scheitere ich schon an der 1. Tabelle :)...... - schönen Dank an die Profis!!!
der Filter ist
Das File könnt ihr hier finden https://www.herber.de/bbs/user/155889.xlsm
Den Code den ich verwende ist folgender, und der Fehler ist angeblich in
"Sheets("Input").Range("Table1[@[AAA]:[FFF]]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Search").Range("A1:C" & lngLastRowSC), CopytoRange:=Range("A1"), Unique:=False"
Private Sub Worksheet_Activate()Dim lngLastRow As Long
Dim lngLastRowSC As Long
Dim myRange(1) As String
lngLastRow = Sheets("Input").Cells(Rows.Count, 1).End(xlUp).Row
lngLastRowSC = Sheets("Search").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Output").Cells.Clear
Sheets("Output").Select
Range("A1").Select
' Update in Output
Sheets("Input").Range("Table1[@[AAA]:[FFF]]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Search").Range("A1:3" & lngLastRowSC), CopytoRange:=Range("A1"), Unique:=False
myRange(1) = "A1:F"
lngLastRow = Sheets("Output").Cells(Rows.Count, 1).End(xlUp).Row
myRange(1) = myRange(1) & lngLastRow
Sheets("Output").ListObjects.Add(xlSrcRange, Range(myRange(1)), , xlYes).Name = _
"Test_Table"
End Sub