Gruppe
Allgemein
Problem
Wie kann ich eine Tabelle nach einem in einer Zelle stehenden Kriterium filtern und die gefundenen Datensätze in eine zweite Tabelle übertragen?
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