autofilter setzten und Datensätze kopieren

Question

Tachchen,

ich habe hier ein etwas, aber es funktioniert nicht.

Sub setzen()

Rows("3:3").Select
Selection.AutoFilter
ActiveSheet.Range("$A$3:$WVK$16").AutoFilter Field:=1, Criteria1:= _
"Come"
Range("A100000").Select
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlToRight)).Select
End Sub

Ich habe 5 Tabellenblätter z.B.("come"; "hier"; "go"; there"; "and") :-)
ich wollte aus dem Tabellenblatt allgemein, in Zeile 3 einen Autofilter setzten und die einzelnen Werte in Spalte A ausfiltern und in die gleichnamigen Tabellenblätter kopieren..

Also: Autofilter Spalte A auf "come" setzen und dann die werte (ausser die Überschrift natürlich) in Tabellenblatt "come" zelle A2 kopieren..

Vielen Dank

maain

Answer 1

Moin and by

Sub Filter()
Worksheets("DeineQuellTabelle").Range("A1").AutoFilter Field:=1, Criteria1:="DeineFilterAngabe"
Worksheets("DeineQuellTabelle").Rows("2:" & Worksheets("DeineQuellTabelle").UsedRange.SpecialCells(xlCellTypeLastCell).Row).Copy
Worksheets("DeineZielTabelle").Range("A" & Worksheets("DeineZielTabelle").Cells(Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial Paste:=xlValues
Worksheets("DeineQuellTabelle").Range("A1").AutoFilter
Application.CutCopyMode = False
End Sub

Answer 2

Super vielen Dank...:-)

jetzt hab ich beim nächsten Schritt des Projektes noch ein weiteres Problem, dass ich mit Makro aufzeichnung nicht lösen konnte :-)

Ich möchte dass was ich in der Tabelle1 in Spalte A1 bis A..... pro Zelle den Wert in der Tabelle2 suchen und wenn er den gleichen Inhalt in einer Zelle gefunden hat, sollte er einfach nur diese Zelle aktivieren grün markieren und dann die schleife weitermachen und Tabelle1 zelle A2 suche.

ist sowas möglich

Danke