Datum

Titel

18.04.2024 19:30:20

VBA - Tabelle mit Mannschaftsergebnissen sortieren

18.04.2024 18:04:29

Formel fehler Wert#

18.04.2024 17:45:21

Shellkommando ausführen, stderr auslesen

18.04.2024 17:41:41

Summe: Bestimmter Bereich mit sverweis

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1884to1888

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

AutoFilter lässt sich nicht zurücksetzen

Forumthread: AutoFilter lässt sich nicht zurücksetzen
6 Beiträge zu diesem Forumthread
Anzeige
337 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

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

AW: AutoFilter lässt sich nicht zurücksetzen

30.05.2022 13:43:07

UweD
AW: AutoFilter lässt sich nicht zurücksetzen

30.05.2022 14:08:25

Lizzel
AW: AutoFilter lässt sich nicht zurücksetzen

30.05.2022 14:28:09

Daniel
AW: AutoFilter lässt sich nicht zurücksetzen

30.05.2022 14:37:43

Rudi
AW: AutoFilter lässt sich nicht zurücksetzen

30.05.2022 14:38:15

Nepumuk
AW: AutoFilter lässt sich nicht zurücksetzen

31.05.2022 07:23:12

Lizzel

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.

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

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