Zeilen zählen und leere löschen
Andi
zu meinem Problem habe ich bereits mehrere Beiträge gesehen und Teile zusammen gefügt.
Im Grunde genommen möchte ich "nur" in einem Bereich die leeren Zeilen löschen lassen.
Dazu lasse ich die Anzahl Zeilen zählen (minus 1 da er sonst die leere Zeile unter dem letzten Wert mitzählt).
Das klappt soweit.
Von dieser Zeilenzahl aufwärts bis Zeile 4 soll geprüft werden ob die Zeile leer ist. Wenn leer dann löschen.
Meinetwegen kann das ganze auch ab Zeile 4 bis zur letzten Zeile ablaufen.
Hier ist der vorhandene Code:
Sub Leerzeilen_loeschen()
Dim i As Long ' Zeilenzähler
Dim Zeilenanzahl As Long
With ActiveSheet
Zeilenanzahl = WorksheetFunction.CountA(Range(.Cells(1, 1), .Cells(.Cells(Rows.Count, 1).End( _
xlUp).Row, 1))) - 1
End With
Application.ScreenUpdating = False ' Bildschirmausgaben abschalten
For i = Zeilenanzahl To 4 Step -1 'ab gezählte Zeile aufwärts Prüfung bis Zeile 4
If (Application.WorksheetFunction.CountA(Range(Cells(i, 1), Cells(i, 13))) = 0) Then _
Rows(i).Delete
If i Mod 100 = 0 Then Application.StatusBar = i
Next i
Application.StatusBar = False ' Statuszeile wieder ans Excel zurückgeben
Application.ScreenUpdating = True ' Bildschirmausgaben einschalten
End Sub
Wäre super wenn ihr mir helfen könntet.
Danke im Voraus
Andi