Thema Datum  Von Nutzer Rating
Antwort
09.10.2024 09:18:39 2000ede
NotSolved
09.10.2024 10:28:34 UweD
NotSolved
Rot Filtereinträge löschen wenn keine Auswahl vorliegt
 09.10.2024 13:00:18 xlKing
NotSolved
09.10.2024 13:08:40 xlKing
Solved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
09.10.2024 13:00:18		 Views:
28		 Rating:
     
Antwort:
  Ja
Thema:
Filtereinträge löschen wenn keine Auswahl vorliegt

Hallo,

wenn schon dann so:

ActiveSheet.ListObjects("Tabelle2").AutoFilter.ShowAllData

Du kannst aber auch die Filters in einer Schleife durchlaufen und einzeln zurücksetzen. Das macht dann Sinn wenn du nur bestimmte Filters zurücksetzen willst. z.B. so:

With ActiveSheet.ListObjects("Tabelle2")
  If .AutoFilter.FilterMode Then
    For flt = 1 To .AutoFilter.Filters.Count
      If .AutoFilter.Filters(flt).On Then
        .ListColumns(flt).Range.AutoFilter field:=flt
      End If
    Next flt
  End If
End With

Wenn du nur Einen Filter zurücksetzen willst (hier z.B. den Vierten), dann lass einfach das Criteria1-Argument weg.

ActiveSheet.ListObjects("Tabelle2").Range.AutoFilter Field:=4

Wenn du durch das Filtern Performance-Probleme bekommst dann hast du vermutlich noch Formeln dabei die beim Aus-/Einblenden von Zeilen neu berechnet werden. Stelle mal testweise die automatische Berechnung auf manuell. Dann sollte es schneller gehen.

Gruß Mr. K.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.10.2024 09:18:39 2000ede
NotSolved
09.10.2024 10:28:34 UweD
NotSolved
Rot Filtereinträge löschen wenn keine Auswahl vorliegt
 09.10.2024 13:00:18 xlKing
NotSolved
09.10.2024 13:08:40 xlKing
Solved