Makro Zeilen ausblenden

[Theo]

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

[Klaus-Dieter]

Hallo Theo,

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

[Theo]

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

[Klaus-Dieter]

Hallo Theo,

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

[Theo]

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?

[Kuwer]

Hallo Theo,

ersetze

Code:

letzteZeile = ActiveSheet.Range("A1000").End(xlUp).Row

durch

Code:

letzteZeile = 1000

Gruß Uwe

[RPP63]

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

[Theo]

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