wie es scheint, scheitere ich heute morgen schon an einer Banalität. Ic h möchte überprüfen, ob in einem listobject der Autofilter eingeschaltet ist.
Wenn dem so ist, sollen alle evtl. vorhandenen Filterkriterien entfernt. Ist der Autofilter nicht eingeschaltet, soll er aktiviert werden.
Im weiteren Verlauf soll dann ein best. Kriterium gesetzt und die gefilterten Daten kopiert werden.
Aber dazu habe ich sicher später noch Fragen :-)
Hier erst mal Problem Nr.1. (Autofilter in Tabelle ist aktiv und es ist auch ein Kriterium eingegeben)
Sub AutoFilter()
Set ws = Worksheets("EinAus")
With ws.ListObjects("Bewegungen")
MsgBox .AutoFilter.FilterMode
If .AutoFilter.FilterMode = True Then
.AutoFilter.ShowAllData
Else
.AutoFilter.FilterMode = True
End If
End With
End Sub
Excel quittiert den Code mit:Fehler beim kompilieren
Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft.
Wo liegt das Problem?
Gruß,
Peter