Hi,
ein Kollege von mir möchte gerne in einer Arbeitsmappe von Excel alle leeren Zeilen löschen. Geht das irgendwie mit Suchen&Ersetzen??
Es geht leider nicht mit Sortieren, da die Inhalte eine bestimmte aber nicht definierbare Reihenfolge haben (habe ihn nicht so recht verstanden. Excelprobleme auf Französisch liegen mir nicht… *g*)
Danke
für eure Hilfe 
Hallo Linda,
ich helfe mir idR so, das ich eine neue Spalte einfüge (ganz vorne) und die fortlaufend nummeriere (per ausfüllen). Dann sortieren, löschen der leeren Zeilen und wieder nach der neuen Spalte sortieren. Voila.
biba
Dirk.Pegasus
Kommando zurück. Die Reihenfolge ist doch nicht wichtig *g* ich lach mich schlapp. Also musste es einfach nur sortiert werden.
Hallo Dirk,
ich habe da mal ein Makro geschrieben:
Sub LeereZeilenLoeschen()
’ Durchforstet alle Zellen der aktiven Spalte nach Leerstring und
’ löscht die entsprechenden Zeilen.
’ Der Cursor muß also beim Aufruf in der gewünschten Spalte stehen !
dim intZeile as integer
dim intSpalte as integer
dim intIndex as integer
intZeile = ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row
intSpalte = ActiveCell.Column
Application.ScreenUpdating = False
For intIndex = intZeile To 1 Step -1
Application.StatusBar = intIndex
If Cells(intIndex, intSpalte) = „“ Then
Rows(intIndex).Delete Shift:=xlUp
end if
Next intIndex
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub
Grüße
Martin