Doppelte löschen auf Tabellenblatt 2
28.09.2016 18:35:17
chris58
Ich habe diesen und auch weitere gefunden, die mir doppelte Zeilen in der Spalte A löschen. Kann man das auch von einem anderen Tabellenblatt aus machen. Wenn ich das in das Tabellenblatt 2 gebe und dann 1x-3x lösche, dann ist der Button weg.
Bitte um Hilfe
danke chris
Sub Doppelte_loeschen()
Dim j As Integer
Dim lrow As Integer
'erst sortieren
Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'dann löschen
lrow = Cells(Rows.Count, 1).End(xlUp).Row
For j = lrow To 2 Step -1
If Cells(j, 1) = Cells(j - 1, 1) Then
Rows(j).Delete
End If
Next j
Range("A2").Select
End Sub