Zeilen mehrerer Blätter gleichzeitig ausblenden

Bild

Betrifft: Zeilen mehrerer Blätter gleichzeitig ausblenden
von: Matthias G
Geschrieben am: 16.02.2005 10:05:21
Hallo Forum,
ich habe, um die Zeile 11 mehrerer Blätter auszublenden, dieses Makro mit dem Recorder aufgenommen:

Sub Test()
    Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
    Sheets("Tabelle1").Activate
    Rows("11:11").Select
    Selection.EntireRow.Hidden = True
End Sub
Wenn ich es nun aber abspiele, wird nur die Zeile 11 des aktiven Blattes ausgeblendet.
Wie kann ich dies trotzdem realisieren?
Gruiß Matthias
Bild

Betrifft: AW: Zeilen mehrerer Blätter gleichzeitig ausblenden
von: Boris
Geschrieben am: 16.02.2005 10:10:08
Hi Mattias,
eine von vielen Möglichkeiten:
Option Explicit

Sub weg_damit()
Dim str, i As Integer
str = Array("Tabelle1", "Tabelle2", "Tabelle3")
For i = 0 To UBound(str)
    Sheets(str(i)).Rows(11).Hidden = True
Next i
End Sub

Grüße Boris
Bild

Betrifft: AW: Zeilen mehrerer Blätter gleichzeitig ausblende
von: Matthias G
Geschrieben am: 16.02.2005 10:19:42
Hallo Boris,
Danke erstmal für die Antwort.
Das mit der Schleife war mir klar.
nur wollte ich es, um Zeit zu sparen, ohne Schleife bewerkstelligen. Gibt es das auch eine Möglichkeit?
Gruß Matthias
Bild

Betrifft: AW: Zeilen mehrerer Blätter gleichzeitig ausblende
von: GerdW
Geschrieben am: 16.02.2005 12:31:44
Wieviel Zeit glaubst du denn da sparen zu können?
GerdW
Bild

Betrifft: AW: Zeilen mehrerer Blätter gleichzeitig ausblende
von: Matthias G
Geschrieben am: 16.02.2005 13:06:30
Hallo Gerd,
so ein bis 2 ms...
;-)
Stimmt natürlich, das eigentliche Problem war ein anderes:
Der Grund für die lange Ausführungsdauer war eine Berechnung innerhalb der Schleife, die aber (darauf bin ich jetzt erst gekommen!) nur einmal nötig ist, und die ich nun aus der Schleife rausgenommen habe.
Vielen Dank,
Matthias
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zeilen mehrerer Blätter gleichzeitig ausblenden"