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
✓ 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
