Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
184to188
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
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehler beim Dupe-Löschen

Fehler beim Dupe-Löschen
22.11.2002 16:13:45
Michael May
Hi,

ich habe mir aus eurem Forum Sourcecode zum Löschen von Dupes in einer Tabelle "geklaut".

Und zwar Folgenden:

Dim verg(ActiveSheet.UsedRange.Rows.Count), z%
z = 2

' Tabelle sortieren

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

' Tabellenlänge ermitteln und Vergleichsstring bilden

Do While Cells(z, 1) <> ""
verg(z) = Cells(z, 1)
z = z + 1
Loop

' Doppelte Zeilen löschen

For r = z - 1 To 1 Step -1
If verg(r) = verg(r - 1) Then
Rows(r).Select
Selection.Delete Shift:=xlUp
End If
Next r

Der Code funktioniert soweit wunderbar, allerdings löscht er immer die erste Reihe der Tabelle - auch dann, wenn sie nicht doppelt vorhanden ist.

Erkennt jemand den Fehler im Code oder kann mir alternativ den Code-Workaround nennen, um jeweils vor Aufruf der Funktion an erste Stelle eine leere Zeile einzufügen.

Cu

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

Betreff
Datum
Anwender
Anzeige
Re: Fehler beim Dupe-Löschen
22.11.2002 16:27:03
Mike E.
Hallo,

du kannst das verhindern, indem du der Variable "r" verbietest, den Wert "1" anzunehen.
(z.B. mithilfe einer Fehlerbehandlungsroutine)

Gruß
Mike E.

Re: Fehler beim Dupe-Löschen
22.11.2002 16:29:35
M. Kuhn
Moin,

die Zeile *For r = z - 1 To 1 Step -1*

sollte heißen:

For r = z - 1 To 2 Step -1

damit nicht Zeile 0 indiziert wird.

MfG Mario

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige