Excel VBA - Filter

Aus SAP-Wiki
Wechseln zu: Navigation, Suche

Filter

Autofilter einschalten

Sub AutoFilterEinschalten()
  Tabelle14.Activate
  If Not ActiveSheet.AutoFilterMode = True Then
    Range("A1").AutoFilter
  End If
End Sub

Speziellen Filter anlegen

Sub RegionFiltern()
 With Tabelle14
  If Not .AutoFilterMode = True Then
   .Range("A1").AutoFilter
  End If
 .Range("A1").AutoFilter Field:=1, Criteria1:="Süd", _
  Operator:=xlAnd, VisibleDropDown:=True
 End With
End Sub
  • Mit der AutoFilter-Methode wurde der Spalte A (Field:=1) das Anzeigekriterium für Zeilen bekannt gegeben (Criteria1:="Süd"). Bei dem Argument Operator gibt es eine größere Auswahl aus mehreren Konstanten, die Sie der folgenden Tabelle entnehmen können.

Autofilter entfernen

Sub FilterEntfernen()
 With Tabelle14
  .AutoFilterMode = False
 End With
End Sub

Auswahl im Autofilter wird zurückgesetzt

Sub AuswahlImFilterZurücksetzen()
 With Tabelle14
  If Not .AutoFilterMode = True Then
   .Range("A1").AutoFilter
  End If
  .Range("A1").AutoFilter Field:=1
 End With
End Sub

Web-Links