Zeilen löschen
20.06.2006 10:35:38
Anton
ich habe ein Verständnisproblem.
Hier sind zwei Makros, die nicht zerlegen kann.
Wer von Euch kann mir diese Beiden möglichst ausführlich kommentieren.
Ich möchte sie so abändern, daß Excel alle Zeilen löscht wenn Spalte A leer ist.
Excel soll so lange arbeiten wie in Spalte F Daten stehen.
Hier die Codes:
Sub E_ZeileWegWennZelleLeer()
' Zeilen löschen wenn Zelle in Spalte A leer ist
Dim L As Long
Dim ZL As Long
ZL = ActiveSheet.UsedRange.Rows.Count
Range("A1").Select
For L = ZL To 4 Step -1
If Len(ActiveCell.Value) = 0 _
Then Selection.EntireRow.Delete _
Else ActiveCell.Offset(1, 0).Select
Next L
End Sub
Sub G_SummenEntfernen()
'Letzen Zwei Reihen löschen()
Dim intZeilenanzahl%
intZeilenanzahl = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row
Range(Rows(intZeilenanzahl - 1), Rows(intZeilenanzahl)).Delete
End Sub
Mein Dank geht schon jetzt in Eure Richtung.
Servus,
Anton