Hallo, ich habe folgendes Problem. Ich verwende folgenden Code um aus verschiedenen Tabellen über einen Advanced Filter eine neue Tabelle zu erstellen. Auf meinem Testsheet, welches ich dank der Hilfe eines "Ralfs" hier hinbekommen habe hat auch alles wunderbar geklappt. Nun habe ich es in mein tatsächliches File übertragen und bekommen ständig einen Runtime "91" Error. Es wird mir im Debug der markierte Bereich mit dem Fehler "oLst.AutoFilter.FilterMode= Object variable or With block variable not set". Wie gesagt, ich habe einzig die Sheetnamen angepasst, sonst nichts. Danke schonmal für eure Hilfe

Private Sub Worksheet_Activate()
Dim oLst As ListObject
Dim lrow As Long
Sheets("Output").Cells.Clear
lrow = 1
With Sheets("Input")
For Each oLst In .ListObjects
oLst.Range.AutoFilter
lrow = Sheets("Output").Cells(Sheets("Output").Rows.Count, 1).End(xlUp).Row
lrow = IIf(lrow = 1, 0, lrow) 'ist notwendig für die CopytoRange
If oLst.AutoFilter.FilterMode = True Then Sheets("Input").ShowAllData
oLst.Range.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Search").Range("A1").CurrentRegion, _
CopytoRange:=Sheets("Output").Range("A" & lrow + 1), _
Unique:=False
If lrow > 0 Then Sheets("Output").Rows(lrow + 1).Delete 'ab der 2ten Tab Spaltenzeitle löschen
Next
End With
With Sheets("Output")
.Range("A1").CurrentRegion.Offset(, 6).ClearContents 'Achtung offset 6, geht bis Spalte F
.ListObjects.Add(xlSrcRange, .Range("A1").CurrentRegion, , xlYes).Name = "Test_Table"
End With

End Sub