Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1248to1252
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1248to1252
1248to1252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatische aktualisierung eines Autofilters

Automatische aktualisierung eines Autofilters
Benny
Hallo Ich habe mal eine Frage.
Wenn ich einen Datei habe, in der ein Autofilter liegt der datan aus einer anderen Datei bezeiht, gibt es dann die möglichkiet, zum beispiel über ein makro, einfach auf einen Button zu klicken in der Eingabedatei und dass sich dann die Datei mit dem Autofilter Aktualisiert

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Automatische aktualisierung eines Autofilters
07.02.2012 12:31:49
Josef

Hallo Benny,
probier mal.
Sub actualizeFilter()
  Dim objFilter As Filter
  Dim lngIndex As Long
  
  On Error Resume Next
  
  With Sheets("Tabelle2") 'Tabelenname anpassen!
    If .AutoFilterMode Then
      For Each objFilter In .AutoFilter.Filters
        lngIndex = lngIndex + 1
        If objFilter.On Then
          .AutoFilter.Range.AutoFilter Field:=lngIndex, Criteria1:=objFilter.Criteria1
          .AutoFilter.Range.AutoFilter Field:=lngIndex, Criteria2:=objFilter.Criteria2
          .AutoFilter.Range.AutoFilter Field:=lngIndex, Operator:=objFilter.Operator
        End If
      Next
    End If
  End With
  
  Err.Clear
  On Error GoTo 0
End Sub



« Gruß Sepp »

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige