ich habe eine lange Liste in Excel und möchte alle Zeilen löschen die in den Spalten D UND E leer sind. Es müssen beide Zellen leer sein, nicht nur eine.
Ich wäre über jede Hilfe sehr dankbar.
Gruss Nic
Public Sub Löschen()
Dim loLetzte As Long, loSpalte As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1") 'Blattname anpassen
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Column
.Range(.Cells(2, loSpalte + 1), .Cells(loLetzte, loSpalte + 1)).FormulaLocal = _
"=WENN(UND(D2="""";E2="""");0;ZEILE())"
.Range(.Cells(2, loSpalte + 1), .Cells(loLetzte, loSpalte + 1)).Value = _
.Range(.Cells(2, loSpalte + 1), .Cells(loLetzte, loSpalte + 1)).Value
.Cells(1, loSpalte + 1) = 0
.Range(.Cells(1, 1), .Cells(loLetzte, loSpalte + 1)).RemoveDuplicates _
Columns:=loSpalte + 1, Header:=xlNo
.Columns(loSpalte + 1).ClearContents
End With
Application.ScreenUpdating = True
End Sub
Gruß WernerSub Del_D_E_blanks()
Dim X As Range, Y As Range
Set X = Columns(4).SpecialCells(4)
Set Y = Columns(5).SpecialCells(4)
If Not X Is Nothing And Not Y Is Nothing Then
If Not Intersect(X.Offset(, 1), Y) Is Nothing Then Intersect(X.Offset(, 1), Y).EntireRow.Delete
End If
Set X = Nothing: Set Y = Nothing
End Sub