Autofilter aus anderem Tabellenblatt steuern

[StrammerMax]

Guten Tag,

ich habe hier ein Exceldokument welches eine große Tabelle mit mehreren Spalten umfasst. 
Jede Spalte kann über einen Autofilter gefiltert werden.

Beispiel: 
Tabellenname: Tabelle1
Spalte A: Land
Spalte B: Marke
Spalte C: Modell

Ich habe nun ein zweites Tabellenblatt angelegt und möchte von dort aus den Filter steuern können. 

Also die gleiche Auswahl wie auf dem Blatt mit der Tabelle - aber ohne die Daten --> nur die Filter sollen angezeigt werden.
Wenn ich die Filter auf dem neuen Tabellenblatt anpasse sollen die Filteroptionen auf dem alten Blatt mit der Tabelle übernommen werden. 

Weiß jemand wie ich das über ein Makro bzw. VBA hinbekomme?

[GMG-CC]

Crossposting ohne gegenseitige Verweise ist egoistisch und Mist!

... zumal dir im Nachbarforum schon sehr geholfen wurde.

[BoskoBiati]

Hi,

und als Hinweis für den TE:

www.Office-loesung.de/p ist das aktuelle Forum von Office-Lösung!

[StrammerMax]

Crossposting ohne gegenseitige Verweise ist egoistisch und Mist!

... zumal dir im Nachbarforum schon sehr geholfen wurde.

1. Hast du auf den falschen Thread verwiesen. 
2. Wurde mir dort offenbar nicht geholfen - sonst würde ich hier nicht nachfragen ;)

Siehe hier

[GMG-CC]

@ Edgar:
Danke, c/p hat manchmal auch seine Nachteile. Einmal kurz abgelenkt und schon ist der Wurm drin ... 

@ TE
Die Lösungsansätze im Nachbarforum sind aber auch für die Helfer hier eine wichtige Info, um darauf aufzubauen! Darum die Forderung nach einem Verweis.

[schauan]

Hallöchen,

im Prinzip geht das so. Voraussetzung ist, dass in der zweiten Tabelle der Filter schon an ist. Eventuell könnte man da noch eine Prüfung einbauen und ihn bei Bedarf setzen.

Code:

Sub FilterUebertragen()
 'Variablendeklaration
 'Filter
 Dim filAuto As Filter
 'Integer
 Dim iCnt%
 'Spaltenzaehler initialisieren
 iCnt = 1
 'Mit der Tabelle2
 With Sheets("Tabelle2")
   'Schleife ueber alle aktiven Filter
   For Each filAuto In Worksheets("Tabelle1").AutoFilter.Filters
     'Wenn ein Filter gesetzt ist, dann
     If filAuto.On = True Then
       'Filter zuruecksetzen
       If .AutoFilter.Filters(iCnt).On Then .Cells.AutoFilter Field:=iCnt
       'Wenn Filter einen Operator hat, dann
       If filAuto.Operator Then
         'Filter mit Operator uebernehmen
         'Hinweis: Bereich (Spalten) anpassen!
         .Range("$B$1:$C$1").AutoFilter Field:=iCnt, Criteria1:=filAuto.Criteria1, _
         Operator:=filAuto.Operator, Criteria2:=filAuto.Criteria2
       'alternativ zu Wenn Filter einen Operator hat, dann
       Else
         'Filter ohne Operator uebernehmen
         'Hinweis: Bereich (Spalten) anpassen!
         .Range("$B$1:$C$1").AutoFilter Field:=iCnt, Criteria1:=filAuto.Criteria1
       'Ende Wenn Filter einen Operator hat, dann
       End If
     'Ende Wenn ein Filter gesetzt ist, dann
     End If
     'Spaltenzaehler hochsetzen
     iCnt = iCnt + 1
   'Ende Schleife ueber alle aktiven Filter
   Next
 'Ende Mit der Tabelle2
 End With
End Sub

Edge-Browser & nach Einfügen in der VBE rote Zeilen im Code?
Dann hier nachschauen: http://www.clever-excel-forum.de/misc.php?action=help&hid=9

[atilla]

Hallo,

ich hatte vor kurzer Zeit die gleiche Aufgabenstellung hier für einen Anderen gelöst.

Unten die Beispielmappe:


  Spezialfilter und ComboBox mit Unikaten.xlsm (Größe: 33,73 KB / Downloads: 34)

.

[Peter]

Hallo,

scheint sich zwischenzeitlich im Wesentlichen erledigt zu haben:

http://www.office-loesung.de/p/viewtopic.php?f=166&t=733300

[atilla]

Hallo Peter,

danke für die Info.

Dann habe ich die Frage falsch verstanden.