MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 20.10.2017, 15:29   #1
OzzyAPP
MOF User
MOF User
Standard Excel 2013 - Schleife mit Filter

Hallo

Geht sowas auch mit einem Autofilter? Wenn ja wie müsste denn das aussehen?
Code:

    Dim wsTabelle As Worksheet
    For Each wsTabelle In ThisWorkbook.Worksheets
        wsTabelle.Rows("2:2").EntireRow.Hidden = True
        wsTabelle.Rows("4:4").EntireRow.Hidden = True
    Next wsTabelle

__________________

besten dank und mfg ozzy
OzzyAPP ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.10.2017, 15:31   #2
RPP63neu
MOF Meister
MOF Meister
Standard

Moin!
Natürlich!
Geht es noch _etwas_ genauer?
Ansonsten hilft erst mal der Rekorder.

Gruß Ralf

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok
RPP63neu ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.10.2017, 16:07   #3
Beverly
MOF Guru
MOF Guru
Standard

Hi,

wenn du den Autofilter verwenden willst, müsstest du ihn 1. in jedem Tabellenblatt vorhalten und 2. müsstest du für jede nicht auszublendende Zeile in einer Spalte ein Kriterium eintragen, nach dem gefiltert werden kann - ich würde fast denken, dass deine bisherige Methode wesentlich weniger aufwändig ist.


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.10.2017, 16:39   #4
OzzyAPP
Threadstarter Threadstarter
MOF User
MOF User
Standard

ok ich versuchs mal zu erklären. 5 tabellenblätter

tb 1 : 25 Personen bsp von: A1:A25, dazu gibt es 5 gruppen, jeder Person wird eine gruppe zugewiesen

hier würde ich gern filtern, gruppe 1 bis 5

tb 2 bis 5: A1:A25 via Verknüpfung bzw. sverweis aus tb 1

nun zum eigentlichen Problem. wenn ich nun im tb1 mir die gruppe 1 rausfiltere soll das gleichzeitig auch auf den tb 2 - tb5 geschehen.

__________________

besten dank und mfg ozzy
OzzyAPP ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.10.2017, 16:47   #5
RPP63neu
MOF Meister
MOF Meister
Standard

Lade die Datei hoch!
Ich sehe nicht, wo die Gruppen stehen.
Da ich aber offline gehe:
Speicher den Gruppennamen in einer Variable und durchschleife
wsTabelle.Cells(1).CurrentRegion.Autofilter Spalte, Variable

Gruß Ralf

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok
RPP63neu ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.10.2017, 16:58   #6
OzzyAPP
Threadstarter Threadstarter
MOF User
MOF User
Standard

hier mal eine bsp Datei
Angehängte Dateien
Dateityp: xlsm Filtern_OzzyApp.xlsm (14,7 KB, 6x aufgerufen)

__________________

besten dank und mfg ozzy
OzzyAPP ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.10.2017, 18:06   #7
Beverly
MOF Guru
MOF Guru
Standard

Und wo nach soll nun konkret gefiltert werden?


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.10.2017, 18:30   #8
OzzyAPP
Threadstarter Threadstarter
MOF User
MOF User
Standard

im tb1 die gruppen, b3 bis b27

__________________

besten dank und mfg ozzy
OzzyAPP ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.10.2017, 18:49   #9
Beverly
MOF Guru
MOF Guru
Standard

Du hast meine Frage nicht beantwortet: es kann schließlich nicht gleichzeitig nach ALLEN Gruppen gefiltert werden - du musst also ein bestimmtes Kriterium festlegen, nach dem gefiltert werden soll...


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.10.2017, 19:59   #10
OzzyAPP
Threadstarter Threadstarter
MOF User
MOF User
Standard

style stimmt. nach gruppe 1 bitte

__________________

besten dank und mfg ozzy
OzzyAPP ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.10.2017, 22:59   #11
Beverly
MOF Guru
MOF Guru
Standard

Code:

Sub Filtern()
    Dim wksTab As Worksheet
    For Each wksTab In Worksheets
        With wksTab
            If .AutoFilter Is Nothing Then .Range("A1").CurrentRegion.AutoFilter
            .Range("A1").CurrentRegion.AutoFilter field:=2, Criteria1:=1
        End With
    Next wksTab
End Sub

Beachte bitte folgende Bedingung: es darf keine Leerzeile zwischen Überschrift und 1. Datensatz sein!! Lösche also in allen Tabellenblättern die Zeile 2.


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:23 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.