Zeilen per InputBox löschen
25.04.2003 07:10:44
Rolf St.
Könnt ihr mir folgendes Makro soweit ändern, das ich per InputBox
festlegen kann, nach wie vielen gleichen Zahlen pro Klasse, in Spalte D, die Zeilen gelöscht werden sollen?
Sub ZeilenLöschen()
Dim x%
Selection.Sort Key1:=Range("M1"), Order1:=xlAscending, Key2:=Range("D1") _
, Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
For x = [D1].CurrentRegion.Rows.Count To 2 Step -1
With Cells(x, 4)
If .Value = .Offset(3, 0).Value Then
.Offset(3, 0).EntireRow.Delete
End If
End With
Next x
End Sub
Das Tabellenblatt hat eine Überschrift
Vielen Dank für eure Hilfe!
Tschüß
Rolf