Ich habe ein Makro vorliegen das mehrere Dateien abarbeitet. In diesen Dateien arbeitet das Makro mit Filtern von Spalten.
Das Problem ist jetzt nur, wenn es in einer Datei den Filter nicht ausführen kann, weil in dieser Datei die gefilterten Werte in der jeweiligen Spalte nicht vorhanden sind, gibt es mir einen Fehler aus und stoppt das Makro an dieser Stelle.
Kann ich irgendwie die Fehlermeldung ignorieren und es einfach weiter laufen lassen, ohne dass es mir dann das Makro stoppt und die Datei wo der Filter nicht anwendbar ist einfach ignoriert?
"
...
strFile = Dir$(strPath & strExt)
Do Until strFile = vbNullString
Workbooks.Open Filename:=(strPath & strFile), Local:=True
Set QWB = Workbooks(strFile)
'--------------
With QWB.Worksheets
'Filter
Selection.AutoFilter
ActiveSheet.Range("A:AK").AutoFilter Field:=4, Criteria1:=Array( _
"RLMMT", "RLMOT", "SLPANA", "SLPSYN"), Operator:=xlFilterValues
ActiveSheet.Range("A:AK").AutoFilter Field:=5, Criteria1:= _
"=BestOf 1", Operator:=xlOr, Criteria2:="=BestOf 2"
....
End With
'--------------
QWB.Close SaveChanges:=False
strFile = Dir$ ' nächste Datei
Loop
Set OWB = Nothing
End Sub"