VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Filtern und Kopieren

Gruppe

Allgemein

Bereich

Filtern

Thema

Filtern und Kopieren

Problem

Wie kann ich eine Tabelle nach einem in einer Zelle stehenden Kriterium filtern und die gefundenen Datensätze in eine zweite Tabelle übertragen?

Lösung

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




StandardModule: basMain

Sub FilternKopieren()
   Dim rngAct As Range
   With Worksheets("Tabelle2")
      .Cells.Clear
      Range("A1").AutoFilter _
         Field:=1, Criteria1:=Range("D2").Value
      Set rngAct = Range("A2").CurrentRegion.SpecialCells(xlCellTypeVisible)
      rngAct.Copy .Range("A1")
      .Rows(1).Delete
   End With
End Sub

    


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