Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.06.2024 19:56:24
17.06.2024 19:39:46
Anzeige
Archiv - Navigation
1884to1888
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
Inhaltsverzeichnis

AutoFilter lässt sich nicht zurücksetzen

AutoFilter lässt sich nicht zurücksetzen
30.05.2022 13:30:26
Lizzel
Hallo zusammen,
ich versuche, wenn AutoFilter gesetzt sind diese mit
If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData
zurückzusetzen.
Aber irgendwie scheint das nicht dauerhaft zu funktionieren. Mal setzt er den Autofilter zurück, mal springt er drüber, als wäre kein Filter aktiv.
Ich kann jetzt auch nicht sagen, was ich teilweise anders mache (irgendwas muss es ja sein, sonst würde es ja dauerhaft funktionieren ...)
Hoffe jemand sieht den Fehler
https://www.herber.de/bbs/user/153320.xlsm
Danke!!!
Gruß Lars

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: AutoFilter lässt sich nicht zurücksetzen
30.05.2022 13:43:07
UweD
versuch es mal ohne Auto

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData


Sonst: ist auch das richtige Blatt aktiv?
Besser:

    If lshTarget.FilterMode Then lshTarget.ShowAllData
LG UweD
AW: AutoFilter lässt sich nicht zurücksetzen
30.05.2022 14:08:25
Lizzel
Hallo Uwe,

versuch es mal ohne Auto
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Sonst: ist auch das richtige Blatt aktiv?
Hab ich mit

Sheets("Instandhaltung").Select
probiert. Gleiches Ergebnis.

Besser:
If lshTarget.FilterMode Then lshTarget.ShowAllData
Das hat leider auch nichts gebracht.
Anzeige
AW: AutoFilter lässt sich nicht zurücksetzen
30.05.2022 14:28:09
Daniel
Hi
nachdem ich mir nie merken kann, was da die richtigte Abfrage ist, mache ich das einfach über die temporäre Abschaltung des Fehlerabbruchs:

On Error Resume Next
ActiveSheet.ShowAllData
On Error Goto 0
Gruß Daniel
AW: AutoFilter lässt sich nicht zurücksetzen
30.05.2022 14:37:43
Rudi
Hallo,

    'Filtern
With ActiveSheet
If .FilterMode Then
.ListObjects(1).Range.AutoFilter
End If
End With
Gruß
Rudi
AW: AutoFilter lässt sich nicht zurücksetzen
30.05.2022 14:38:15
Nepumuk
Hallo Lars,
bei einem ListObject musst du dessen AutoFilter-Objekt ansprechen. Also:

Public Sub leeren()
Dim lsobjInstand As ListObject
Dim lshTarget As Worksheet
Dim lctrChkb As Control, lloAnzData As Long, lloRowDelAdd As Long
Dim llrletzte As ListRow, lloLetzteCol As Long
Set lshTarget = Sheets("Instandhaltung")
Set lsobjInstand = lshTarget.ListObjects("tbl_Instandhaltung")
lshTarget.Unprotect
'vor dem löschen Filterung entferen
If lsobjInstand.AutoFilter.FilterMode Then lsobjInstand.AutoFilter.ShowAllData
With lsobjInstand
If .ListRows.Count > 0 Then
For lloRowDelAdd = 1 To .ListRows.Count
.ListRows(1).Delete
Next
End If
End With
End Sub
Gruß
Nepumuk
Anzeige
AW: AutoFilter lässt sich nicht zurücksetzen
31.05.2022 07:23:12
Lizzel
Guten Morgen Nepumuk,
alles durchprobiert. Funktioniert perfekt.
Danke!!!
Gruß Lars

337 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige