title image


Smiley Hier ein Makro dazu...
Hallo Klaus,



das müsste mit diesem Makro hinhauen. Vorsicht: Die Zellen werden gelöscht! Sicherheitskopie machen.

Der Code gehört in das Blatt, aus dem die Doppelten gelöscht werden sollen. Das Vergleichsblatt ist hier Tabelle2 (anpassen). Es werden die Spalten A verglichen.







      

Sub Tabellenabgleich()

For i =[a65536].End(xlUp).Row To 1 Step -1

If WorksheetFunction.CountIf(Sheets("Tabelle2").Range("A:A"), Range("A" & i)) > 0 Then

Range("A" & i).Delete shift:=xlUp

End If

Next

End Sub 



Code eingefügt mit Syntaxhighlighter 3.0




Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: