Laufzeitfehler bei Filter Funktion
15.12.2020 18:14:00
Markus
ich habe ein Problem bei einem Autofilter, welcher mir Laufzeitfehler 1004 anzeigt. Ich möchte eine Quelldatei im Hintergrund öffnen, den Blattschutz aufheben, den Filter gemäß eines Wertes einer anderen Userform an entsprechender Spalte setzen und im Anschluss die sichtbaren Dateien kopieren. Ich verwende eine vergleichbare Filterfunktion an anderer Stelle, weiß daher nicht, warum dieser in diesem Quellcode Ausschnitt nicht funktioniert.
'öffnen der ausgewählten Datei
Set WBQuelle = Workbooks.Open(ExportDatei)
'Blattschutz aller Tabellenblätter der Quelldatei aufheben
For Each wsCounter In WBQuelle.Worksheets
wsCounter.Unprotect ShKey
Next
'kopieren des Blattinhaltes und Schließen der Quell-Datei
With WBQuelle
'Setzen des Filters
Dim Liste2 As Range
Set Liste2 = WBQuelle.Sheets("Chemikalien").Range("A5:AH5000")
Liste2.AutoFilter 'HIER KOMMT DER LAUFZEITFEHLER
Liste2.AutoFilter Field:=UserForm10.Labor, Criteria1:="X"
Liste2.SpecialCells(xlCellTypeVisible).Copy
WBZiel.Sheets("Stammdaten").Range("A" & WBZiel.Sheets("Stammdaten").Cells(Rows.Count, 1). _
End(xlUp).Row + 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
'Schließen der ausgewählten Datei
WBQuelle.Close SaveChanges:=False
Liebe Grüße,
Markus