Leere Zellen abfragen

Bild

Betrifft: Leere Zellen abfragen
von: Norbert
Geschrieben am: 28.10.2003 13:01:06

Hallo Leute,

bitte kann mir jemand weiterhelfen?!
Wie kann ich in einem Excel-File aus einer Liste in einem
Tabellenblatt mit einer Schleife abfragen, wo leere Zeilen sind
und diese dann löschen?
(Es reicht auch, wenn erkannt wird, dass in der ersten Spalte kein
Eintrag in einer Zelle steht und die dazugehörige Zeile gelöscht wird;
das alles aber für alle Zeilen im gesamten Tabellenblatt; Leerzeilen
und "Nichtleerzeilen" wechseln einander ab!)

Danke im Voraus

Tschüss, Norbert

Bild


Betrifft: AW: Leere Zellen abfragen
von: WernerB.
Geschrieben am: 28.10.2003 13:10:09

Hallo Norbert,

dieses Makro gehört in ein normales Standard-Modul:

Sub LeerZeilenKiller()
Dim i As Long, laR As Long
    Application.ScreenUpdating = False
    laR = Cells(Rows.Count, 1).End(xlUp).Row
    For i = laR To 1 Step -1
      If Cells(i, 1).Value = "" Then
        Cells(i, 1).EntireRow.Delete
      End If
    Next i
    Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).


Bild


Betrifft: AW: Leere Zellen abfragen
von: Norbert
Geschrieben am: 28.10.2003 13:46:14

Hi Werner!

Das funktioniert echt super. Schönen Dank für deine
Hilfe!!

Servus, Norbert


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Leere Zellen abfragen"