Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
880to884
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
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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


________________________________________

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

Anzeige
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

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige