Zeile löschen wenn zwei Bedingungen erfüllt sind
26.06.2006 17:07:02
Anton
ich hatte eine Pivot-Tabelle, die zu viele leere Zellen hat.
Jetzt möchte ich die überflüssigen Zeilen löschen.
Mit diesem Code lösche ich eine Zeile wenn (in diesem Fall) Spalte A leer ist:
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
Ich möchte jetzt eine zweite Bedingung anhängen:
Wenn(Spalte A = leer; wenn(Spalte B = leer; Zeile löschen; nächste Zeile)nächste Zeile)
Excel darf also eine Zeile nur löschen, wenn Spalte A UND Spalte B leer sind.
Wer kann mir bitte mit dem Code weiterhelfen.
Mein Dank geht schon jetzt in Eure Richtung.
Servus,
Anton
Anzeige