Microsoft Excel

Herbers Excel/VBA-Archiv

Leere Zeilen mit VBA ausblenden



Excel-Version: 10.0 (Office XP)

Betrifft: Leere Zeilen mit VBA ausblenden
von: Josi
Geschrieben am: 28.05.2002 - 14:58:00

Wie kann ich leere Zeilen z.B. im Bereich a1:m100 mit vba ausblenden?

Im vorraus schon herzlichen dank
Josi

  

Re: Leere Zeilen mit VBA ausblenden
von: MikeS
Geschrieben am: 28.05.2002 - 15:29:58

Hi Josi,

sieh mal hier nach...

https://www.herber.de/forum/archiv/4to8/t5186.htm#5186

Ciao MikeS

  

Re: Leere Zeilen mit VBA ausblenden
von: Martin Beck
Geschrieben am: 28.05.2002 - 16:52:52

Hallo Mike,

schön, daß Du auf eine meiner "Jugendsünden" verweist ;-)

Kleine Ergänzung: Wenn in dem genannten Bereich die Zeilen entweder ganz leer oder völlig gefüllt sind (also keine einzelnen leeren Zellen), ist:


Sub Leerzeilen_ausblenden()
Range("A1:M100").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

die elegantere und schnellere Lösung.

Gruß
Martin Beck

  

Vielen Dank habe auch eine Lösung gebastelt
von: Josi
Geschrieben am: 28.05.2002 - 17:02:17

Danke an euch zwei
Aber so langsam!! werd ich auch etwas schlauer
Hab mir mit Hilfe der Recherche auch was zusammengebastelt, was ich finde gar nicht so schlecht ist.

sub Ausblenden()
 Dim Zelle As Range
 Dim ws As Worksheet
 Set ws = Application.ThisWorkbook.ActiveSheet

 For Each Zelle In ws.Range("a32:a131").Cells
 If Zelle = "" Then
 ws.Rows(Zelle.Row).Hidden = True
 End If
 Next

 End Sub

 Sub Einblenden()
 Dim Zelle As Range
 Dim ws As Worksheet
 Set ws = ThisWorkbook.ActiveSheet

 For Each Zelle In ws.Range("a32:a131").Cells
 If Zelle = "" Then
 Rows(Zelle.Row).Hidden = False
 End If
 Next

 End Sub


 

Beiträge aus den Excel-Beispielen zum Thema "Leere Zeilen mit VBA ausblenden"