Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Doppelte Datensätze löschen - erweitern

Doppelte Datensätze löschen - erweitern
23.05.2005 19:30:34
Rolf
Hallo Excelprofis,
im folgenden Makro werden doppelte Datensätze gelöscht.
Ist es möglich nicht nur die doppelten, sondern die kompletten Datensätze zu löschen in denen doppelte vorkommen?
Hat jemand eine Idee das Makro zu erweitern?

Sub DoppelteSätzeEliminieren()
Dim i As Long
Sheets("Tabelle1").Activate
'zuerst sortieren
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
i = 1
'jetzt doppelte Sätze löschen
Do Until IsEmpty(Cells(i, 1).Value)
If Cells(i, 1).Value = Cells(i + 1, 1).Value Then
Cells(i, 1).EntireRow.Delete
Else
i = i + 1
End If
Loop
End Sub

Vielen Dank im voraus
Rolf

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Datensätze löschen - erweitern
23.05.2005 22:00:40
Rolf
Hallo Klaus-Dieter,
Danke für Deine Info.
Ich werde mir die Excelseite ansehen.
Gruß Rolf
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige