PDA

Vollständige Version anzeigen : Doppelte Einträge


se7en
07.09.2001, 14:12
Hallo Ihr,
ich hab eine Tabelle mit ca. 830 Einträgen
(1 Spalte 830 Zeilen).
Ich möchte jetzt mit einem Makro alle doppelten Einträge löschen. Hat jemand eine Idee?

<p align="left"><font size="1" face="Century Gothic"><font color="#000000">Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurde in diesem Beitrag ein Link entfernt.</font>

jinx
07.09.2001, 21:08
Moin, se7en,

das Makro aus diesem Beitrag (http://www.ms-office-forum.net/forum/showthread.php?s=&threadid=55101) läuft nicht?

Nächste Möglichkeit - kann aber als Makro aufgezeichnet werden: Über Menüleiste Daten - Filter - Spezialfilter kopieren nach und den Haken bei keine Duplikate...

Willst Du es nun in Excel oder in Access oder in beiden machen?

<font size="1" face="Century Gothic">Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurden in diesem Beitrag Links korrigiert, die auf falsche Adressen zeigten und die Signatur angepasst...</font>

Spulli
07.09.2001, 21:33
Schau mal hier

<a href="http://www.*********************" target="_blank">
<img src="http://www.*********************/Images/banner.gif" alt="Klaus-Dieter's VBA-Excelseite" border="0"></a>
vorbei. Da gibt es einiges zu Deiner Frage.

Cu Spulli

se7en
11.09.2001, 11:09
Vielen Dank an alle, ihr habt mir sehr geholfen!

snore
11.09.2001, 18:37
Hallo se7en,
probiers mit diesen makro.

Sub DoppelteSätzeEliminieren()
Sheets("tabelle1").Activate

'zuerst sortieren
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom

'jetzt doppelte Sätze rausschmeißen
Range("A1").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value _
Then ActiveCell.EntireRow.Delete _
Else ActiveCell.Offset(1, 0).Select
Loop
End Sub

mfg
snore