Zweite Leere Zeile löschen
30.07.2015 13:09:49
Benji
wie man eine leere Zeile löscht, ist mir bewusst.
Sub LeereZeilenLoeschen()
Dim i As Long
Application.ScreenUpdating = False
For i = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
Rows(i).Delete
End If
If i Mod 100 = 0 Then
Application.StatusBar = i
End If
Next i
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub
Ich möchte die erste leere Zeile behalten und alle weiteren löschen. Wenn zwischendrin Text ist, soller wieder die erste Leere Zeile behalten.
Vorher:
1 a
2
3
4 d
5
6 f
7
8
9 b
Nachher:
1 a
2
4 d
5
6 f
7
9 b
Zeilen 3 und 8 wurden gelöscht. Kann man dies mittels VBA umsetzen ?
Anzeige