Warum löscht Makro nich alle leeren Zeilen

Computer: Software & Programmierung Office Software
#1

Hallo Ihabe ein Makro, mit dem ich Zeilen löschen will wenn Zelle (i,3) leer.
Das funktioniert auch, wenn auf eine nicht leere nur eine leere folgt. Sobald zwische zwei nicht leeren mehrere leere sind, löscht es offenbar nur eine. Es sollen aber alle leeren gelöscht werden. Wie kriege ich das hin?
Danke für eure Hilfe.
Code:
Public Sub keine_MAC()
'Dim Start As Long
'Dim Ende As Long
'Dim speicher1 As Long
'Dim speicher2 As Long
'speicher1 = ActiveCell.Row
'speicher2 = ActiveCell.Column

'Start = Cells(ActiveCell.Row, ActiveCell.Column)
'Ende = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For i = ActiveCell.Row To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Cells(i, 3).Value = „“ Then
Rows(i).Delete
End If
Next i

End Sub
Gruss
Walti
P.S. wollte das Excel anhängen. weiss aber nicht wie.

#2

Hallo Walti,

wenn mehrere Zeilen aufeinanderfolgend leer sind, Wird bei dem Code maximal die Hälfte der leeren Zeilen gelöscht. Wenn Zeile 5 - 10 leer sind, wird zuerst Zeile 5 gelöscht (und die alte Zeile 6 wird zur 5), dann die neue Zeile 5, die neue Zeile 7 etc.

Sogesehen wird immer eine leerzeile übersehen.

Umgehungsmöglichkeiten sehe ich 2:

  1. in der If-Abfrage nach den Löschung i um eins runtersetzen ( i = i -1) - in diesem Fall wird die gerade gelöschte Zeile erneut angesprochen und geprüft. Wenn sie jetzt gefüllt ist, geht der Code ohne Löschung weiter - wenn sie leer ist, wird gelöscht und i wieder um eines runtergesetzt
  2. die Schleife in der letzten Zeile starten und nach oben durchlaufen lassen, Zeilen werden nicht mehrfach geprüft - gelöschte Zeilen fallen nicht ins Gewicht

Viel Spaß beim austesten

LadyN

#3

Hallo LadyN
Genau soetwas habe ich inzwiscen gefunden:
Sub neu()
Dim er As Long
Dim lr As Long ’ lastrow
Dim i As Long

er = ActiveCell.Row
lr = ActiveCell.SpecialCells(xlLastCell).Row
'Range("a1").Select
                            ' leere suchen und löschen
For i = lr To er Step -1
    If Cells(i, 3).Value = "" Then
        Rows(i).Delete
    End If
Next i

End Sub

scheint zu klappen. Ich muss das aber am Montag noch mit der echten Datei testen.
Danke & Gruss

Walti