Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
672to676
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
672to676
672to676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

lösche Zeilen ohne Inhalt

lösche Zeilen ohne Inhalt
30.09.2005 11:14:01
M.
Hallo,
Ich suche einen Makro, der alle Zeilen ohne Inhalt löscht
Vielen Dank im voraus
Karsten

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: lösche Zeilen ohne Inhalt
30.09.2005 11:24:03
Nepumuk
Hi,
so:
Public Sub prcDeleteEmptyLines()
    Dim lngRow As Long
    Application.ScreenUpdating = False
    With Worksheets("Tabelle1")
        For lngRow = .UsedRange.Row + _
                .UsedRange.Rows.Count - 1 To 1 Step -1
            If WorksheetFunction.CountBlank(.Rows(lngRow)) = _
                .Columns.Count Then .Rows(lngRow).Delete
        Next
    End With
    Application.ScreenUpdating = True
End Sub

Gruß
Nepumuk

Anzeige
AW: lösche Zeilen ohne Inhalt
30.09.2005 12:25:33
DirkZ
etwas kürzer ist es damit...

Sub DelEmpLines()
Columns(1).Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Gruß
DirkZ
AW: lösche Zeilen ohne Inhalt
30.09.2005 12:34:52
Nepumuk
Hallo DirkZ,
du löschst alle Zeilen, welche in Spalte A kein Eintrag haben.
Wenn sich aber ein Eintrag in Spalte B befindet?
Gruß
Nepumuk

AW: lösche Zeilen ohne Inhalt
30.09.2005 13:04:30
DirkZ
Na gut, Fragestellung nicht richtig verstanden.
:-)

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige