Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1620to1624
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Filter auf mehrere Arbeitsblätter

Filter auf mehrere Arbeitsblätter
17.04.2018 15:17:55
Felix
Sehr geehrte Damen und Herren,
ich würde ein Makro benötigen für folgende Aktion:
Wenn ich in dem Arbeitsblatt "Bauteilauflistung" einen beliebigen Filter setze im Bereich B9:J500, sollte Excel dieses Suchkriterium sich merken (selecten) und dann den selben Filter in dem Arbeitsblatt "Arbeitsplan" setzen.
FYI
Es soll auch funktionieren wenn man mehrere Filter setzt.
Vielleicht kann mir jemand weiter helfen und eventuell bei dem Makro die einzeln Schritte erklären.
Danke & LG
Felix

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filter auf mehrere Arbeitsblätter
17.04.2018 16:10:03
Daniel
Naja, wenn Excel-Profi angibst, dann sollte man dir eigentlich nicht die einzelnen Schritte erklären müssen.
der folgende Code überträgt die Filtereinstellungen aus dem Tabellenblatt "Tabelle1" in das aktuelle Tabellenblatt.
Die Anpassung des Filters findet statt, wenn man das Blatt aktiviert.
der Code muss ins Modul des Tabellenblatts mit dem Filter ("Arbeitsplan"):
Es wird davon ausgegangen, dass die Spaltenanordnung die gleiche ist.
Die Position des Filters auf dem Blatt "Bauteilauflistung" wird automatisch ermittelt
Im Blatt "Arbeitsplan" musst du sie im Code angeben: Me.Cells(1, 1) hier die Zeile und Spalte der linken Zelle der Überschrift angeben
Private Sub Worksheet_Activate()
Dim i As Long
With Sheets("Bauteilauflistung").AutoFilter.Filters
For i = 1 To .Count
With .Item(i)
If .On Then
On Error Resume Next
Me.Cells(1, 1).AutoFilter field:=i, Criteria1:=.Criteria1
Me.Cells(1, 1).AutoFilter field:=i, Criteria1:=.Criteria1, _
Operator:=.Operator
Me.Cells(1, 1).AutoFilter field:=i, Criteria1:=.Criteria1, _
Criteria2:=.Criteria2, _
Operator:=.Operator
On Error GoTo 0
Else
Me.Cells(1, 1).AutoFilter field:=i
End If
End With
Next
End With
End Sub
Gruß Daniel
Anzeige
AW: Filter auf mehrere Arbeitsblätter
18.04.2018 09:25:35
Felix
Hi Daniel,
danke für die schnelle Antwort,es funktioniert einwandfrei.
Ich hab mir gedacht das Anforderungsprofil um dieses Problem zu lösen benötigt einen Excel-Profi, mein Fehler.
Danke & LG
Felix

92 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige