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"