Office: Zeilen ausblenden

Hallo,

in meiner Arbeitsmappe wollte ich automatisch eine Zeile ausblenden,sobald
in einer Zelle ein Wert x vorhanden ist, andernfalls soll die Zeile wieder eingeblendet werden.
Bis jetzt erreiche ich das mit einer einfachen If-Funktion

Code:

IF Worksheets("Blatt1").Value = "Wert A" THEN 
Worksheets("Blatt1").Rows("2").Hidden = True
ELSE
Worksheets("Blatt1").Rows("2").Hidden = False

Nun habe ich aber die Befürchtung, dass dieser vorgang bei >20 Tabellenblättern und >30 Auszublendenden Zeilen zu lasten der Performance geht.
Lassen sich diese Abfragen evtl. etwas kompakter gestalten?

gruß;
:-) [/code]

 

Hi,

du kannst zwar den Code auf 1 Zeile reduzieren, nicht jedoch die Performance, da jedes Tabellenblatt getrennt berücksichtig werden muss.

Bis später,
Karin