Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Hidden Rows löschen mit Makro

Betrifft: Hidden Rows löschen mit Makro von: Drop
Geschrieben am: 17.09.2004 12:49:44

Hi all,

Kennt jemand ein Makro, mit dem ich alles ausgeblendeten Zeilen eines Tabellenblattes löschen kann?

Besten Dank

  


Betrifft: AW: Hidden Rows löschen mit Makro von: Dieter Maj
Geschrieben am: 17.09.2004 13:27:20

Hallo Drop
versuchs mal damit:
Sub raus()
Dim i
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Rows(i).EntireRow.Hidden = True Then Rows(i).Delete Shift:=xlUp
Next
End Sub

Gruß Dieter
PS:
Das Forum lebt auch von Rückmeldungen


  


Betrifft: AW: Hidden Rows löschen mit Makro von: Drop
Geschrieben am: 17.09.2004 13:37:57

Besten Dank!

Ich hatte das Problem, dass mehrere hintereinanderliegende versteckte Zeilen nicht vollständig gelöscht wurden...

gruss drop


  


Betrifft: AW: Hidden Rows löschen mit Makro von: Bert
Geschrieben am: 17.09.2004 13:45:20

Es ist ggf. ein Unterschied, ob Rows hidden sind oder nur die RowHeight = 0
Überprüf mal in einer Schleife, ob die wirklich hidden sind.

Bert


  


Betrifft: AW: Hidden Rows löschen mit Makro von: Dieter Maj
Geschrieben am: 17.09.2004 13:53:07

Hallo Bert,
macht keinen Unterschied
Gruß Dieter


  


Betrifft: AW: Hidden Rows löschen mit Makro von: Bert
Geschrieben am: 17.09.2004 15:40:17

Doch, macht es!

Bert


  


Betrifft: AW: Hidden Rows löschen mit Makro von: Dieter Maj
Geschrieben am: 17.09.2004 15:46:31

wenn Du meinst und es Dich glücklich macht!
Dieter


  


Betrifft: AW: Hidden Rows löschen mit Makro von: Bert
Geschrieben am: 17.09.2004 16:28:01

Blödmann, wenn du es nicht besser weißt, schreib zumindest m.W. oder "nach meiner Meinung". An einer Aufklärung scheinst du ja nicht interessiert zu sein.

Bert


 

Beiträge aus den Excel-Beispielen zum Thema "Hidden Rows löschen mit Makro"

Blattwechsel zwischen xlVeryHidden ausgeblendeten Blättern