Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Filtern und Ergebnisse in Tabellen übertragen

Gruppe

Filtern

Problem

Wie kann ich eine Tabelle nach 3 Kriterien Filtern und die Filterergebnisse in 3 Tabellenblätter übertragen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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