ich benötige ein Makro mit dem ich eine komplett leere Zeile löschen kann.
Folgendes Makro habe ich bereits:
Sub Leerzeilen_loeschen()
Dim lngSpalte As Long
lngSpalte = 1
For a = ActiveSheet.Cells(Rows.Count, lngSpalte).End(xlUp).Row To 1 Step -1
If ActiveSheet.Cells(a, 1).Value = "" Then
Rows(a).Delete shift:=xlUp
End If
Next a
End Sub
Problem:
Das Makro sucht einen Wert in Spalte A. Wenn in Spalte B aber ein Wert drin steht, in Spalte A aber nicht, wird die gesamte Zeile gelöscht.
Ich benötige jedoch ein Makro das innerhalb der gesamten Zeile nach einem Wert sucht und das löschen dann überspringt.
Viele Grüße