Microsoft Excel

Herbers Excel/VBA-Archiv

Automatische aktualisierung eines Autofilters | Herbers Excel-Forum


Betrifft: Automatische aktualisierung eines Autofilters von: Benny
Geschrieben am: 07.02.2012 11:06:56

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

  

Betrifft: AW: Automatische aktualisierung eines Autofilters von: Josef Ehrensberger
Geschrieben am: 07.02.2012 12:31:49


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 »



Beiträge aus den Excel-Beispielen zum Thema "Automatische aktualisierung eines Autofilters"