AutoFilter
19.08.2019 07:35:31
Gert
ich würde gerne Daten aus einer Spalte mithilfe der AutoFilter - Funktion auslesen. In der Spalte befinden sich Inhalte wie I364, E465, A475, Q364. Die Zahlen sind irrelevant und es
handelt sich alles nur um die Buchstaben. Ich möchte die Zeilen mit den Buchstaben A und Q filtern, ausschneiden und in den Zeilen darunter einfügen.
Beispiel:
Sub filtern()
Dim sh As Worksheet
Set sh = ThisWorkbook.ActiveSheet
sh.Range(Cells.Item(9,2),Cells.Item(47,2)_
.AutoFilter _
Field:=2, _
Criteria1:= "A*", _
Operator:= xlOr, _
Criteria2:= "Q*"
sh.Range(Cells.Item(9,2),Cells.Item(47,2)_
.SpecialCells(xlCellTypeVisible).Cut
sh.Range("A56").Paste
End Sub
Vielen Dank.
LG
Gert