ich habe folgendes Problemchen. Ich will alle leeren Zeilen eines Dokuments löschen. Allerdings nur, wenn auch alle Spalten leer sind.
Bisher habe ich diesen Code:
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
Hier wird aber nur die erste Spalte geprüft und wenn diese leer ist, dann gelöscht.
Kann mir jemand weiter helfen? Nicht schwer, aber ich schaff´s trotzdem nicht...