Excel - Zeilen mit Nullwert in mehreren Blättern ausblenden

Problem

Bitte helfen Sie mir bei der Erstellung eines Makros in der Excelsheet, dass:

Ich kann die gesamten Zeilen ausblenden, wenn ein Zellenwert oder (Wertebereich) in mehreren Blättern einen Nullwert hat. Ich meine zum Beispiel entweder, wenn ich die Datei öffne oder wenn ich auf Steuerelement unten klicke, um das Makro auszuführen.

Mein Fall ist:

Ich habe eine Excel-Datei, die 32 Blätter für jedes Personal hat, und jedes Blatt hat eine Tabelle mit 3 Spalten

 (A, B, C) und 26 Reihen (1-26). Spalte A für Text Spalte B für Text sowie Spalte C für Werte 

Meine Bitte ist es, die gesamte (n) Zeile (n) je nach Wert in Spalte C und für jedes Blatt der 32 entweder durch Drücken eines Befehls oder durch Ändern der Werte oder was auch immer auszublenden / einzublenden.

Lösung

Zielsetzung:

Zum Filtern / Ausblenden der Zeilen auf allen Blättern für einen bestimmten Wert.

Annahmen:

1. Die Position der Spalte ist auf jedem Blatt gleich

3. Filter muss auf alle Blätter angewendet werden

3. Bettwäsche wird nicht versteckt

4. In allen Blättern ist mindestens eine Zelle gefüllt

SCHRITTE

1. Lesen Sie die Annahmen

2. Erstellen Sie eine Sicherungskopie

3. Drücken Sie ALT + F11, und fügen Sie ein neues Modul ein

4. Fügen Sie den Code ein und führen Sie ihn aus

CODE:

 Sub HideRows () Dim Sheet As Object Dim filterFor As Variant Dim iFilterCol As Integer iFilterCol = 3 'Filter auf 3 Spalten anwenden filterFor = InputBox ("Geben Sie den herauszufilternden Wert ein", "Herausfiltern") Für jedes Blatt in Sheets Sheet .Wählen Sie, wenn ActiveSheet.AutoFilterMode, dann Cells.Select Selection.AutoFilter End If Cells.Select If ActiveSheet.AutoFilterMode = False Then Selection.AutoFilter End If Selection.AutoFilter Feld: = iFilterCol, Criteria1: = "" & filterFor, Operator: = xlAnd Next End Sub 

Hinweis

Danke an rizvisa1 für diesen Tipp im Forum.

Vorherige Artikel Nächster Artikel

Top-Tipps