Spezialfilter kopie auf Tabelle 2 ...

Hallo Excelfreunde,
ich möchte via Spezialfilter die Filterdaten auf eine separate Tabelle / separate Mappe kopieren.
Auf das selbe Tabellenblatt auf dem auch die Ursprungsdaten stehen bekomme ich das hin, aber sowie ich als Ziel eine andere Tabelle innerhalb der Mappe oder auch eine weitere Mappe anwähle bekomme ich eine Fehlermeldung. »Nur gefilterte Daten können in das aktive Blatt kopiert werden«.
Soll das wirklich bedeuten das mein vorhaben nicht geht?
Ich habe eine Ursprungstabelle von über 100 Spalten und mehrere Tausend Zeilen. Da macht es keinen Sinn die Filterdaten auf das gleiche Tabellenblatt zu kopieren.
Hat jemand eine Lösung (ggf. Bsp.) für mich?
Wenn es nicht anders geht nehme ich auch eine VBA - Lösung.
M.f.G.
Berny

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Spezial_Filter() Dim FilterBereich As Range Dim Kriterienbereich As Range Dim Ziel As Range Set FilterBereich = Sheets("Tabelle1").Columns("A:C") 'Filterbereich Set Kriterienbereich = Sheets("Tabelle1").Range("D2") 'Kriterienbereich Set Ziel = Sheets("Tabelle2").Range("A1") 'erste Zelle im Ziel Kriterienbereich(1, 1).FormulaLocal = "=ISTZAHL(FINDEN(""1"";A2&B2&C2))" FilterBereich.AdvancedFilter xlFilterCopy, Kriterienbereich, Ziel Kriterienbereich.Clear 'Hilfzelle löschen End Sub

Sub Spezial_Filter() Dim FilterBereich As Range Dim Kriterienbereich As Range Dim Ziel As Range Set FilterBereich = Sheets("Tabelle1").Columns("A:C") 'Filterbereich Set Kriterienbereich = Sheets("Tabelle1").Range("D1:D2") 'Kriterienbereich Set Ziel = Sheets("Tabelle2").Range("A1") 'erste Zelle im Ziel Kriterienbereich(2, 1).FormulaLocal = "=ISTZAHL(FINDEN(""1"";A2&B2&C2))" FilterBereich.AdvancedFilter xlFilterCopy, Kriterienbereich, Ziel Kriterienbereich.Clear 'Hilfzelle löschen Application.Goto Ziel End Sub

Hallo,
wenn Du nur einen Wert eingibst,
weiß der Filter aber nicht auf welche Spalte dieser sich bezieht,
es sei denn Du schreibst die Überschrift der entsprechenden Spalte dazu.

	A	B	C	D
1	Überschrift 1	Überschrift 2	Überschrift 3
2	Hallo2	Hallo4	Hallo6
3	Hallo3	Hallo6	Hallo9
4	Hallo4	Hallo8	Hallo12
5	Hallo5	Hallo10	Hallo15
6	Hallo6	Hallo12	Hallo18
7	Hallo7	Hallo14	Hallo21
8	Hallo8	Hallo16	Hallo24
9	Hallo9	Hallo18	Hallo27
10	Hallo10	Hallo20	Hallo30
11	Hallo11	Hallo22	Hallo33
12	Hallo12	Hallo24	Hallo36
13	Hallo13	Hallo26	Hallo39
14	Hallo14	Hallo28	Hallo42
15	Hallo15	Hallo30	Hallo45


Sub Spezial_Filter()
Dim FilterBereich As Range
Dim Kriterienbereich As Range
Dim Ziel As Range

Set FilterBereich = Sheets("Tabelle1").Columns("A:C") 'Filterbereich 
Set Kriterienbereich = Sheets("Tabelle1").Range("D1:D2") 'Kriterienbereich 
Set Ziel = Sheets("Tabelle2").Range("A1").Resize(, FilterBereich.Columns.Count) 'Ziel Überschrift 

Kriterienbereich(1, 1) = FilterBereich.Cells(1, 2).Value 'nach Spalte 2 Filtern 
Kriterienbereich(2, 1) = "'=Hallo2*"

FilterBereich.AdvancedFilter xlFilterCopy, Kriterienbereich, Ziel

Kriterienbereich.Clear 'Hilfzelle löschen 
Application.Goto Ziel
End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

	A	B	C	D
1	Überschrift 1	Überschrift 2	Überschrift 3
2	34	87	55
3	80	38	34
4	14	47	78
5	18	32	80
6	91	41	31
7	3	19	13
8	79	82	86
9	89	56	81
10	19	70	14

Spezialfilter kopie auf Tabelle 2 ...

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spezialfilter kopie auf Tabelle 2 ...

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread