VB 4/6- und VBA-Forum - Beitragsübersicht -
ThemaE10: Filter auf mehrere Tabellenblätter
Von Playade
Datum 01. Dezember 2015 um 16:57:12
Frage Hallo

Ich habe die Daten zwecks besserer Übersichtlichkeit auf 2 Tabellenblätter verteilt.
Tabellenblatt 1 wird über verschiedene Spalten per Autofilter gefiltert.
Nun suche ich nach einer Lösung, die mir in Tabellenblatt 2 exakt dieselben Zeilen anzeigt.

Beispiel: Durch den Autofilter werden in Tabellenblatt 1 die Zeilen 5, 10, 15, 20 ausgeblendet.
In Tabellenblatt 2 möchte ich nun auch die Zeilen 5, 10, 15, 20 ausgeblendet haben.

Für einen Tipp wäre ich sehr dankbar.

Gruss, Playade
Antwort:
Von Playade
Datum 04. Dezember 2015 um 16:30:30
Antwort Stunden später - habe es so lösen können:
Sub FilterBlatt2()
Dim lr As Integer
Dim c As Variant

lr = Worksheets(2).UsedRange.Rows.Count 'Zählt die verwendeten Zeilen von Blatt 2 - es werden alle Spalten berücksichtigt
Worksheets(2).Range("A1:A" & lr).EntireRow.Hidden = True 'Alle verwendeten Zeilen von Blatt 2 ausblenden

lr = Worksheets(1).UsedRange.Rows.Count 'Zählt die verwendeten Zeilen von Blatt 1
For Each c In Worksheets(1).Range("A1:A" & lr).SpecialCells(xlCellTypeVisible).Cells 'Sucht alle sichtbaren Zellen (nicht ausgefilterten oder ausgeblendet) In Blatt 1
Worksheets(2).Cells(c.Row, 1).EntireRow.Hidden = False 'Blendet alle sichtbaren Zeilen von Blatt 1 auch In Blatt 2 ein
'MsgBox c.Row
Next
End Sub
[ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ]
Antworten
E10: Filter auf mehrere Tabellenblätter - Playade 01. Dezember 2015 um 16:57:12
Re: Filter auf mehrere Tabellenblätter - Playade 04. Dezember 2015 um 16:30:30

Ihre Antwort
(Nick-)Name   Wichtige Informationen zur Namensangabe
E-Mail (opt.)  Wichtige Informationen zur Angabe einer eMail-Adresse
Thema   Wichtige Informationen zur Angabe eines Themas
Betrifft (IDE)  Excel 2010 (VBA 6)
Ihre Antwort
Smilies
Mehr...
FettKursivUnterstrichen   Übersicht der Tipp-KürzelÜbersicht der Projekt-KürzelÜbersicht der Bücher-Kürzel 
Homepage
Titel
Root-Smilies              
             
             
[ Zurück zum VB 4/6- und VBA-Forum | Forum-Archiv | Forum-Hilfe | Chat ]

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB.Net | .Net-Forum | DirectX | DirectX-Forum | Chat | Ausschreibungen | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 13. Dezember 2015