title image


Smiley Re: Dublikate löschen
Hallo mromar,



so könnte es gehen:



Public Sub Doppelte_Loeschen()



Dim lZeile As Long



For lZeile = Range("A65536").End(xlUp).Row To 1 Step -1

If WorksheetFunction.CountIf(Range("A1:A" & lZeile), _

Range("A" & lZeile)) > 1 Then

Range("A" & lZeile).Delete Shift:=xlUp ' nur die Zelle löschen

'Rows(lZeile).Delete Shift:=xlUp ' die ganze Zeile löschen

End If

Next lZeile



End Sub



Gruß Peter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: