title image


Smiley Re: Doppelte Daten löschen
Hier eine mögliche Lösung für Dein Problem.Sub doppelte_finden()' Den zu prüfenden Bereich zuerst nach den eigenen Wünschen sortieren erste_zeile = 1 letzte_zeile = 10 erste_spalte = 1 letzte_spalte = 3 Set r = Range(Cells(erste_zeile, erste_spalte), Cells(letzte_zeile, letzte_spalte)) For n = 1 To r.Rows.Count' Abfrage der ersten 3 Zellen nebeneinander If r.Cells(n, erste_spalte) = r.Cells(n + 1, erste_spalte) And _ r.Cells(n, erste_spalte + 1) = r.Cells(n + 1, erste_spalte + 1) And _ r.Cells(n, erste_spalte + 2) = r.Cells(n + 1, erste_spalte + 2) Then' Ausgabe der Zellposition. Hier sind auch andere Aktionen möglich z.B. Hintergrund umfärben MsgBox "Doppelte Daten in " & r.Cells(n + 1, erste_spalte).Address End If Next nEnd SubGruß Andreas

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: