Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Maain vom 06.05.2021, 11:30 Options
autofilter setzten und Datensätze kopieren
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
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
Antwort 1 von testerxxx vom 06.05.2021, 14:21 Options
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 SubAntwort 2 von Maain vom 06.05.2021, 14:31 Options
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
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
Ähnliche Themen
2 Autofilter Probleme
fubajunkie 24.01.2008 - 27 Hits - 3 Antworten
Autofilter
IntelP 24.09.2008 - 70 Hits - 2 Antworten
Autofilter Hilfe
Brocki 08.01.2009 - 87 Hits - 9 Antworten
Autofilter
Luci 13.01.2009 - 120 Hits - 5 Antworten
Autofilter
stronge 10.02.2009 - 127 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
