Microsoft Excel

Herbers Excel/VBA-Archiv

leere Zeilen ausblenden

Betrifft: leere Zeilen ausblenden von: Ralf
Geschrieben am: 19.09.2014 10:23:54

Hallo Forum,

ich habe folgende Problemstellung:
Ich habe aus einer Datenbank eine Excel Tabelle exportiert.
Nun sind eine Menge leerer Zeilen in dem Export enthalten. Diese möchte ich ausblenden. Wie kann ich die leeren Zeilen ausblenden, unter der Bedingung, wenn die Spalten A bis J leer sind?
Funktion oder VBA wäre mir egal.

Vielen Dank im Voraus für Eure Unterstützung.

Viele Grüße

Ralf

  

Betrifft: AW: leere Zeilen ausblenden von: Hajo_Zi
Geschrieben am: 19.09.2014 10:28:42

Hallo Ralf,

vielleicht Aufwendig, aber benutze Autofolter.

GrußformelHomepage


  

Betrifft: AW: leere Zeilen ausblenden von: Ralf
Geschrieben am: 19.09.2014 10:31:00

Hallo Hajo,

wen soll ich foltern?
Und das noch automatisch?

Mit Autofilter komme ich nicht weiter, da habe ich mich gerade schon ausgetobt.

Viele Grüße

Ralf


  

Betrifft: AW: leere Zeilen ausblenden von: Rudi Maintaire
Geschrieben am: 19.09.2014 10:38:52

Hallo,
in eine Hilfsspalte
=Anzahl2(A1:J1)
und mit AutoFolter die 0 auspeitschen ;-)

Gruß
Rudi


  

Betrifft: SuFu hilft von: Jack_d
Geschrieben am: 19.09.2014 10:39:36

Im Zweifel brauchst dieses Makro nur bissl anpassen.

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



  

Betrifft: AW: SuFu hilft von: Ralf
Geschrieben am: 19.09.2014 10:47:19

Hallo Rudi,
Hallo Jack_d,

funktioniert beides wunderbar.

Vielen Dank für die schnelle Hilfe.

Viele Grüße und ein schönes WE

Ralf


 

Beiträge aus den Excel-Beispielen zum Thema "leere Zeilen ausblenden"