Gruppe
Allgemein
Problem
Wie kann ich eine Tabelle nach 3 Kriterien Filtern und die Filterergebnisse in 3 Tabellenblätter übertragen?
StandardModule: basMain
Sub FilternUndKopieren()
Application.ScreenUpdating = False
With Range("A1")
.AutoFilter Field:=3, Criteria1:="<10"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Kleiner10").Range("A1")
.AutoFilter Field:=3, Criteria1:="<50"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Kleiner50").Range("A1")
.AutoFilter Field:=3, Criteria1:=">=50"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Andere").Range("A1")
End With
ActiveSheet.AutoFilterMode = False
End Sub