ich habe hier ein Makro, welches in einer anderen geöffneten Excel Datei den Autofilter benutzt. Wenn ich aber den Autofilter zurücksetzten möchte über showall bekomme ich immer den Laufzeitfehler 9.
Weiß jemand Rat?
Gruß
René
Sub aaTest()
If fncShow_all(wb:=Application.Workbooks("Test2.xls"), vWks:="Tabelle1") Then
MsgBox "Alle Daten werden angezeigt"
Else
MsgBox "Autofilter ist im Blatt ""Test2!Tabelle1"" nicht gesetzt"
End If
End Sub
Function fncShow_all(wb As Workbook, vWks As Variant) As Boolean
'bei vorhandenem Autofilter im Tabellenblatt alle Daten anzeigen
Dim ofilter As Filter
With wb.Worksheets(vWks)
'Prüfen, ob Autofilter im Blatt aktiv
If .AutoFilterMode = True Then
'prüfen of einer der Filter gesetzt ist
For Each ofilter In .AutoFilter.Filters
If ofilter.On = True Then
'Alle Daten anzeigen
.ShowAllData
Exit For
End If
Next
fncShow_all = True
Else
fncShow_all = False
End If
End With
End Function