Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1808to1812
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1808to1812
1808to1812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filter und Sortierstatus löschen

Filter und Sortierstatus löschen
30.01.2021 14:55:01
Karsten
Hallo,
Ich möchte beim Laden der Excel Datei den 'Filter und Sortierstatus für den aktuellen Datenbereich löschen'
in VBA ausführen (kleines Filtersymbolrechts von 'Filter'). Tabellenblatt: 'Applications'
Leider bekomme ich das nicht hin. Eine Testdatei habe ich hinzugefügt.

Private Sub Workbook_Open()
' wenn Filter gesetzt dann alle Filter löschen
If ActiveWorkbook.Worksheets("Applications").ListObjects.Count > 0 Then ActiveWorkbook. _
Worksheets("Applications").AutoFilter.Sort.SortFields.Clear
' oder
If ActiveWorkbook.Worksheets("Applications").FilterMode Then ActiveWorkbook.Worksheets(" _
Applications").AutoFilter.ShowAllData
' oder
If ActiveWorkbook.Worksheets("Applications").FilterMode = True Then ActiveWorkbook. _
Worksheets("Applications").ShowAllData
' funktioniert leider alles nicht
End Sub

https://www.herber.de/bbs/user/143452.xlsm

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filter und Sortierstatus löschen
30.01.2021 16:10:36
Herbert_Grom
Hallo Karsten,
probiers mal damit:
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
Servus
AW: Filter und Sortierstatus löschen
30.01.2021 17:43:18
Karsten
Hallo an alle Beteiligten
Dieses Kommando ist die Lösung, vielen Dank Luschi aus klein Paris :-)
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
Mit dem Kommando If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
wird der Autofilter komplett gelöscht, was ich nicht will. Evtl. habe ich mich nicht verständlich ausgedrückt. Trotzdem Danke Herbert.
Die Procedur von Frank (fsc) erledigt diese Aufgabe auch nicht. Trotzdem Danke
Ich wünsche Euch noch ein angenehmes Wochenende.
Nochmals vielen lieben Dank euch allen.
Gruß Karsten
Anzeige
AW: Filter und Sortierstatus löschen
30.01.2021 17:45:28
Herbert_Grom
Hallo Karsten,
Luschi ist zwar auch ein ausgefuchster Profi, doch diese Zeile ist die meine! ;o)=)
Servus
AW: Filter und Sortierstatus löschen
30.01.2021 16:16:25
fcs
Hallo Karsten,
so sollte es funktionieren: 
Private Sub Workbook_Open()
Dim wks As Worksheet
Dim objListobject As ListObject
Set wks = Me.Worksheets("Applications")
' wenn Filter gesetzt dann alle Filter löschen
'prüfen, ob Listobject/Tabelle
If wks.ListObjects.Count > 0 Then
Set objListobject = wks.ListObjects(1)
With objListobject.AutoFilter
If .FilterMode = True Then .ShowAllData
.Sort.SortFields.Clear
End With
' Prüfen, ob Autofilter aktiv
ElseIf wks.AutoFilterMode = True Then
If wks.FilterMode = True Then wks.ShowAllData
wks.Sort.SortFields.Clear
End If
End Sub
LG
Franz
Anzeige
AW: Filter und Sortierstatus löschen
30.01.2021 16:32:10
Luschi
Hallo Karsten,
- da es in der Tabelle 'Applications' keine 'formatierte Tabelle' (ListObject) gibt, kann
  der 1. Befehl nicht greifen
- die Befehle 2 & 3 greifen nicht, da es keine gefilterten Datensätze gibt
  wobei der 2. Befehl vorzuziehen ist
- den Sortierstatus löscht man so:
  ActiveWorkbook.Worksheets("Applications").AutoFilter.Sort.SortFields.Clear
Gruß von Luschi
aus klein-Paris
AW: Filter und Sortierstatus löschen
30.01.2021 18:05:29
Karsten
Hallo
Luschi schrieb:
- den Sortierstatus löscht man so:
ActiveWorkbook.Worksheets("Applications").AutoFilter.Sort.SortFields.Clear
Das ist das was ich gesucht habe!!!
Vielen Dank
Anzeige
AW: Filter und Sortierstatus löschen
31.01.2021 06:55:23
Luschi
Hallo Karsten,
und mir hat die Lösung der Makrorecorder verraten.
Gruß von Luschi
aus klein-Paris

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige