|
Hallo Reinhard,
deine Daten beginnen ja wohl in Zeile 3. Ich gehe davon aus, dass in Zeile 2 Überschriften vorhanden sind. Wenn nicht, dann vor den eigentlichen Daten in Zeile 3 in Zeile 2 Überschriften einfügen.
Dann teste mal:
Public Sub Zeilen_löschen()
Dim loSpalte As Long, loZeile As Long
Application.ScreenUpdating = False
'Blattname anpassen
With Worksheets("Tabelle1")
loZeile = .Cells(.Rows.Count, "E").End(xlUp).Row
loSpalte = .Cells(3, .Columns.Count).End(xlToLeft).Offset(, 1).Column
.Range(.Cells(3, loSpalte), .Cells(loZeile, loSpalte)).FormulaLocal = _
"=WENN(UND(E3<>""Außendurchmesser"";E3<>""Wandstärke"";E3<>""Ovalität"";E3<>""Exzentrität"";SUMME(F3:H3)=0);0;ZEILE())"
.Range(.Cells(3, loSpalte), .Cells(loZeile, loSpalte)).Value = .Range(.Cells(3, loSpalte), .Cells(loZeile, loSpalte)).Value
.Cells(2, loSpalte) = 0
Range("E2:I41").Select
.Range(.Cells(2, 1), .Cells(loZeile, loSpalte)).RemoveDuplicates Columns:=loSpalte, Header:=xlNo
.Columns(loSpalte).ClearContents
End With
End Sub
Gruß Werner
|