Autofilter aktualisieren

Forumthread: Autofilter aktualisieren

03.03.2021 12:17:46

Markus

Hallo Excel Fans,
ich möchte das alle Autofilter, die ich gesetzt habe durch eine Schaltfläche aktualisiert werden.
Bis jetzt habe ich es so gelöst, dass sich die Autofilter immer aktualisieren, aber das behindert mich bei der Arbeit mit der Arbeitsmappe. Ich hoffe ihr könnt mir helfen.
MfG Markus

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Autofilter aktualisieren

03.03.2021 13:00:58

ChrisL
AW: Autofilter aktualisieren

03.03.2021 13:26:40

Markus
AW: Autofilter aktualisieren

03.03.2021 13:43:07

ChrisL
AW: Autofilter aktualisieren

03.03.2021 14:38:14

Markus
AW: Autofilter aktualisieren

03.03.2021 16:04:58

Markus
AW: Autofilter aktualisieren

03.03.2021 16:32:04

ChrisL
AW: Autofilter aktualisieren

04.03.2021 10:16:55

Markus

AW: Autofilter aktualisieren

03.03.2021 13:00:58

ChrisL

Hi Markus
Mir ist generell unklar, wie man einen Autofilter aktualisiert. Ein Filterkriterium setzt man oder nicht, aber eine spezielle Aktualisierung habe ich bisher nie benötigt.
Vielleicht wird es klarer, wenn du aufzeigst, wie du nachfolgendes erreicht hast:
Bis jetzt habe ich es so gelöst, dass sich die Autofilter immer aktualisieren
cu
Chris

AW: Autofilter aktualisieren

03.03.2021 13:26:40

Markus

Hallo Chris,
das habe ich mit einem Makro auch aus diesem Forum gelöst.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Ws As Worksheet
For Each Ws In Me.Worksheets
If Ws.AutoFilterMode = True Then
Ws.AutoFilter.ApplyFilter
End If
Next Ws
End Sub

Dieses Makro steht im VBA auf der Seite "DieseArbeitsmappe", und funktioniert einwandfrei.
cu
Markus

AW: Autofilter aktualisieren

03.03.2021 13:43:07

ChrisL

Hi Markus
Ach so. Jetzt verstehe ich auch wieso man Autofilter manchmal doch "aktualisieren" muss :)

Private Sub CommandButton1_Click()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
If Ws.AutoFilterMode = True Then
Ws.AutoFilter.ApplyFilter
End If
Next Ws
End Sub

cu
Chris

AW: Autofilter aktualisieren

03.03.2021 14:38:14

Markus

Hallo Chris,
das Funktioniert super, ich danke dir für deine Hilfe.
cu Markus

AW: Autofilter aktualisieren

03.03.2021 16:04:58

Markus

Hallo Chris,
leider ist mir jetzt aufgefallen, sobald ich einen Bereich als Tabelle formatiert habe, das dort der Filter nicht mit aktualisiert wird. Vielleicht hast du dafür ja auch noch eine Lösung.
fG
Markus

AW: Autofilter aktualisieren

03.03.2021 16:32:04

ChrisL

Hi Markus
So sollte es gehen:

Private Sub CommandButton1_Click()
Dim Ws As Worksheet, lo As ListObject
For Each Ws In ThisWorkbook.Worksheets
If Ws.AutoFilterMode = True Then
Ws.AutoFilter.ApplyFilter
End If
For Each lo In Ws.ListObjects
lo.AutoFilter.ApplyFilter
Next lo
Next Ws
End Sub

cu
Chris

AW: Autofilter aktualisieren

04.03.2021 10:16:55

Markus

Hallo Chris,
so funktionert es. Ich danke dir für die Hilfe.
cu
Markus

Beliebteste Forumthreads (12 Monate)

Forumthread: Autofilter aktualisieren

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread