Autofilter

Tabelle filtern und kopieren – der Autofilter

✓ Gefilterte Daten mit SpecialCells(xlCellTypeVisible) kopieren
✓ Autofilter setzen und lösen
✓ Tabellenblatt ansprechen (Codename)
✓ Filtern nach bestimmtem Wert
✓ Argumente von Methoden übergeben (Name und Position)
✓ Filtern nach Zahlenwert
✓ Filtern nach Zellwert
✓ Filtern nach allem außer einem bestimmten Wert
✓ Filtern nach mehreren Werte in einer Spalte
✓ Filtern nach mehreren Werten in unterschiedlichen Spalten
✓ With-Statement
✓ Variablen und Datentypen
✓ UsedRange
✓ Tabellenblätter einfügen

 

Code

Sub AutoFilter() 
 
'Autofilter setzen und lösen 
Tabelle1.Range("A1").AutoFilter 
 
'Filtern: Bestimmter Wert 
Tabelle1.Range("A1").AutoFilter Field:=1, Criteria1:="Government" 
 
'Filtern: Zahlenwert 
Tabelle1.Range("A1").AutoFilter 5, ">1000" 
 
'Filtern: Zellwert 
Tabelle1.Range("A1").AutoFilter 1, Tabelle1.Range("R1").Value 
 
'Filtern: Alles außer 
Tabelle1.Range("A1").AutoFilter 1, "<>Midmarket" 
 
'Filtern: Mehrere Werte 
Tabelle1.Range("A1").AutoFilter 2, Array("France", "Germany"), xlFilterValues 
 
'Filtern: Mehrere Werte in unterschiedlichen Spalten 
With Tabelle1.Range("A1") 
    .AutoFilter 1, "Government" 
    .AutoFilter 2, "Canada" 
    .AutoFilter 5, ">1000" 
End With 
 
'Neues Tabellenblatt einfügen 
Dim ws As Worksheet 
Set ws = Worksheets.Add 
 
'Gefilterte Daten kopieren 
Tabelle1.UsedRange.SpecialCells(xlCellTypeVisible).Copy Destination:=ws.Range("B2") 
 
'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub

 

Teile diesen Beitrag

Empfehlungen für dich

VBATrainer Excel VBA Coaching - Lagerverwaltung

Sichere dir jetzt meine kostenlose Lagerverwaltungs-Anwendung