Hier der Code den ich brauche mit Bezug auf Spalte A - Diesen möchte ich anpassen mit Bezug auf die Eingabe von der InputboxLetzteZeile = Range("A" & Rows.Count).End(xlUp).Row
For Zeile = LetzteZeile To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & Zeile), Range("A" & Zeile)) > 1 Then
Rows(Zeile).EntireRow.Delete
Danke schon mal