Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1924to1928
1924to1928
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autofilter Aktualisieren

Forumthread: Autofilter Aktualisieren

Autofilter Aktualisieren
22.03.2023 15:46:32
Heidi

Guten Tag,

ich habe vollgenes Problem.. ich ziehe meine Daten in mehreren Tabellen in verschiedenen Arbeitsblätter ob jemand Aktiv oder Inaktiv aus einem Stammdaten Arbeitsblatt und möchte das sich die jeweiligen Autofilter automatisch aktualisieren, so dass wenn man im Stammdaten Arbeitsblatt jemand auf inaktiv setzt dieser in den anderen Blättern nicht mehr angezeigt wird. Schreit für mich nach VBA doch auch nach vielen rumprobieren wirds nicht besser..

Gruß und im vorab vielen Dank

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autofilter Aktualisieren
22.03.2023 16:30:23
onur
Und was genau erwartest du jetzt vom Forum ? Einen General-Code, der in allen möglichen Dateien mit Autofilter läuft ?
Bei "VBA nein" würden ja Ratschläge, Beschreibungen und Tips nix bringen.
Das Dumme ist nur: Es gibt keinen General-Code, er muss jeweils massgeschneidert auf deine Datei geschrieben werden.


Anzeige
AW: Autofilter Aktualisieren
22.03.2023 18:09:59
Nepumuk
Hallo Heidi,

teste mal:

Option Explicit

Public Sub Autofilter_aktualisieren()

    Dim objWorksheet As Worksheet
    Dim objListObject As ListObject

    For Each objWorksheet In ThisWorkbook.Worksheets

        With objWorksheet

            If .ListObjects.Count > 0 Then

                For Each objListObject In objWorksheet.ListObjects

                    With objListObject.AutoFilter

                        If .FilterMode Then Call .ApplyFilter

                    End With
                Next
            Else

                If .FilterMode Then Call .AutoFilter.ApplyFilter

            End If
        End With
    Next
End Sub
Gruß
Nepumuk

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige