Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro zum Zeilen ausblenden in mehreren Tabellen

Forumthread: Makro zum Zeilen ausblenden in mehreren Tabellen

Makro zum Zeilen ausblenden in mehreren Tabellen
02.07.2007 17:26:29
Lembke
Hallo,
ich möchte mit Hilfe eines Makros auf mehreren Tabellenblättern eine bstimmte Zeile ausblenden. Bei Makroaufzeichnung wird die entsprechende Zeile in jedem Tabellenblatt ausgeblendet. Jedoch beim späteren ausführen wird nur die Zeile im ersten Tabellen ausgeblendet. Alle Tabellenblätter werden über eine Array markiert.
Hat jemand eine verständliche Lösung ?
Danke
R.L

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum Zeilen ausblenden in mehreren Tabell
02.07.2007 18:07:07
Beverly
Hi,
durchlaufe alle Tabellen mit einer Schleife.

Sub ausblenden()
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
End Sub


________________________________________

Anzeige
AW: Makro zum Zeilen ausblenden in mehreren Tabell
03.07.2007 08:17:32
Lembke
Hi,
Danke Beverly. Das funktioniert. Aber ich möchte nur bei bestimmten Tabellenblättern in der Arbeitsmappe die Zeilen ausblenden. Wie bekomme ich diese Tabellenblätter so definiert, dass nur bei diesen Blättern ausgeblendet wird.
Danke.
Gruß
R.L

AW: Makro zum Zeilen ausblenden in mehreren Tabell
04.07.2007 13:41:00
Beverly
Hi,
mache noch einen Vergleich in dieser Form

If wsTabelle.Name="Tabelle1" And wsTabelle.Name="Tabelle77" Then
wsTabelle.Rows("2:2").EntireRow.Hidden = True
wsTabelle.Rows("4:4").EntireRow.Hidden = True
End If


Bis später,
Karin

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Makro zum Zeilen ausblenden in mehreren Tabellen


Schritt-für-Schritt-Anleitung

Um ein Makro zu erstellen, das bestimmte Zeilen in mehreren Tabellenblättern ausblendet, kannst du die folgende Schritt-für-Schritt-Anleitung befolgen:

  1. Excel öffnen: Starte Excel und öffne die Arbeitsmappe, in der du das Makro anwenden möchtest.

  2. Entwicklertools aktivieren: Stelle sicher, dass die Entwicklertools in deinem Menüband aktiviert sind. Gehe dazu auf „Datei“ > „Optionen“ > „Menüband anpassen“ und aktiviere „Entwicklertools“.

  3. VBA-Editor öffnen: Klicke auf „Visual Basic“ in den Entwicklertools, um den VBA-Editor zu öffnen.

  4. Neues Modul hinzufügen: Klicke mit der rechten Maustaste auf „VBAProject (dein Arbeitsmappenname)“ und wähle „Einfügen“ > „Modul“.

  5. Code einfügen: Füge den folgenden VBA-Code in das Modul-Fenster ein:

    Sub ausblenden()
        Dim wsTabelle As Worksheet
        For Each wsTabelle In ThisWorkbook.Worksheets
            If wsTabelle.Name = "Tabelle1" Or wsTabelle.Name = "Tabelle77" Then
                wsTabelle.Rows("2:2").EntireRow.Hidden = True
                wsTabelle.Rows("4:4").EntireRow.Hidden = True
            End If
        Next wsTabelle
    End Sub
  6. Makro speichern: Speichere die Änderungen und schließe den VBA-Editor.

  7. Makro ausführen: Gehe zurück zu Excel, klicke auf „Makros“, wähle „ausblenden“ und drücke auf „Ausführen“.


Häufige Fehler und Lösungen

  • Fehler: Zeilen werden nicht ausgeblendet

    • Lösung: Überprüfe, ob die Tabellennamen in der If-Bedingung korrekt sind. Achte auf Schreibfehler und Groß-/Kleinschreibung.
  • Fehler: Makro läuft nicht auf allen Tabellen

    • Lösung: Stelle sicher, dass die Schleife alle gewünschten Tabellenblätter durchläuft und dass die Namen in der If-Bedingung korrekt definiert sind.

Alternative Methoden

Wenn du kein Makro verwenden möchtest, kannst du auch die folgenden Methoden ausprobieren:

  • Manuelles Ausblenden: Gehe auf das gewünschte Tabellenblatt, wähle die Zeile aus, klicke mit der rechten Maustaste und wähle „Zeile ausblenden“.
  • Filtern: Verwende die Filterfunktion in Excel, um die Daten anzuzeigen oder auszublenden, ohne Makros zu nutzen.

Praktische Beispiele

Hier sind einige praktische Anwendungen des oben genannten Makros:

  • Ausblenden von Kopfzeilen: Wenn du in mehreren Tabellenblättern die zweite Zeile als Kopfzeile hast, kannst du diese mit dem Makro ausblenden, um die Übersichtlichkeit zu erhöhen.
  • Schnelles Bereinigen: Du kannst das Makro anpassen, um mehrere Zeilen in verschiedenen Tabellen zu verstecken, zum Beispiel Zeilen mit unwichtigen Daten.

Tipps für Profis

  • Makro anpassen: Du kannst das Makro erweitern, indem du zusätzliche Bedingungen hinzufügst, um noch spezifischer zu bestimmen, welche Zeilen ausgeblendet werden sollen.
  • Fehlerbehandlung einfügen: Integriere eine Fehlerbehandlung in dein Makro, um zu verhindern, dass es bei einem Fehler abbricht.

FAQ: Häufige Fragen

1. Wie kann ich das Makro für alle Tabellenblätter verwenden? Um das Makro auf alle Tabellen anzuwenden, entferne die If-Bedingung und lasse nur die Schleife, die die Zeilen ausblendet.

2. Kann ich das Makro auch auf eine bestimmte Auswahl anwenden? Ja, du kannst die Schleife so anpassen, dass sie nur auf eine vordefinierte Auswahl von Tabellenblättern angewendet wird, indem du eine Liste der gewünschten Blätter erstellst.

3. Welche Excel-Version benötige ich für dieses Makro? Das oben genannte Makro funktioniert in Excel 2010 und neueren Versionen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige