VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Filtern und Ergebnisse in Tabellen übertragen

Gruppe

Allgemein

Bereich

Filtern

Thema

Filtern und Ergebnisse in Tabellen übertragen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Filtern