Excel VBA AUTOFILTER
05.11.2015 12:59:02
AJB
folgendes Problem:
Der Code soll einen Autofilter setzen, falls kein Filter vorhanden ist (auch keine Filterzeile).
Falls doch, soll er nur alle Werte anzeigen! (.ShowallData)
'Filter löschen/einfügen
Worksheets("Umsatzliste_YMMA0231_1").Activate
With ActiveWorkbook.ActiveSheet
If .AutoFilterMode = True Then
.ShowAllData
Else
Range("Tabelle2[#Headers]").Select
Selection.AutoFilter
End If
End With
Der bisherige Code überspringt immer den If-Teil! Auch
.AutoFilter statt .AutoFiltermode hilft nicht weiter.
Vielen Dank für die Antworten :D