AW: Autofilter in anderer Datei zurücksetzten
06.11.2009 13:26:58
fcs
Hallo René,
den Laufzeitfehler 9 kann ich hier nicht zuordnen.
Die folgende kleine Funktion prüft, ob der Autofilter gesetzt ist und setzt den Autofilter in den als Parameter übergebenen Arbeitsmappe und Tabellenblatt zurück.
Gruß
Franz
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