doppelte Löschen und A:A in Ruhe lassen.
18.01.2009 21:55:00
Peter
Habe im Archiv volgendes Makro gefunden, das ich einwenig umgestrickt habe.
Habe im Tab nur Daten in A2:C200 ungefähr.
Nun möchte ichdoppelte Werte ausgehend von B3 gelöscht haben, vorher werden sie noch sortiert.
Das funzt auch.
Aber ich habe in A3:A200 laufende Nummern, so =WENN(B4>0;A3+1;"") usw.
Die werden immer zerstört beim auffinden der doppelten.
Wie kann ich es hinbekommen, das A:A nicht angefasst wird.?
Mfg. Peter
Private Sub CommandButton1_Click()
Range("B3:C200").Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Dim i As Integer, j As Integer
For i = 1 To Range("B65536").End(xlUp).Row
For j = Range("B65536").End(xlUp).Row To i + 1 Step -1
If Range("B" & j).Value = Range("B" & i).Value Then Rows(j).Delete
Next
Next
Range("A24").Select
End Sub
Anzeige