Clever-Excel-Forum

Guten Abend alle,

ich habe vor langer Zeit untenstehendes Makro von einem Forumsmitglied erhalten.
Es soll alle Zeilen (Range 1 bis 1000) im aktiven Tabellenblatt ausblenden, die in Spalte A blank sind.

---------------------
  Sub LeerZeilen_ausblenden_löschen()
'alle Zeilen ausblenden, die in Spalte A "" sind, Zeile 1 bis 1000

  Dim i%
  Dim letzteZeile As Long
'letzte Zeile definieren
  letzteZeile = ActiveSheet.Range("A1000").End(xlUp).Row

  For i = letzteZeile To 1 Step -1

'Zeile ausblenden
  If Cells(i, 1) = "" Then Rows(i).EntireRow.Hidden = True
'i = Zeile, jede
'1 = Spalte, 1 = A

'oder

'Zeile löschen
'If Cells(i, 1) = "" Then Rows(i).Delete

Next
End Sub


--------------

Das war wahrscheinlich in einer alten Excel Version.

Ich habe Excel 2016 im Einsatz.

Was ist hier jetzt nicht mehr richtig?

Danke für Eure Hilfe

Gruss

Theo

Hallo Theo,

da sehe ich nichts, was nicht mehr funktionieren könnte. Welche Fehlermeldung bekommst du denn?

Guten Abend Klaus Dieter

gar keine. Es passiert einfach nichts.

Makros sind in den Optionen erlaubt, Blatt ist nicht geschützt, keine Ahnung, was nicht funktioniert.
Ich habe verschiedene Arbeitsmappen getestet - tut sich nichts.

??

Gruss

Hallo Theo,

Spalte A hat Inhalte? Ansonsten lade mal deine Datei hoch.

Ja, Spalte A hat Inhalte.

Ich muss präzisieren: Das Makro blendet leere Zeilen aus, die zwischen der Zelle A1 bis A15 keinen Eintrag haben. Das funktioniert. A15 ist die letzte beschriebene Zeile.
Warum blendet er alle Zeilen von A16 bis A1000 nicht aus?

Hallo Theo,

ersetze
durch

Gruß Uwe

Moin!
Wenn die "leeren" Zellen wirklich leer sind, reicht ein (übrigens auch erheblich schnellerer) Einzeiler:

Range("A1:A1000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

Gruß Ralf

Guten Morgen Uwe und Ralf und Klaus-Dieter

herzlichen Dank für Eure kompetente Hilfe.

Das Problem ist gelöst!


Danke nochmals!
Schön das es Leute wie Euch gibt, die einem Fremden einfach so helfen.

Ich wünsche Euch alles Gute und bleibt gesund.

Gruss

Theo