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

Mehr als doppelt vorkommende WErte nicht löschen

Mehr als doppelt vorkommende WErte nicht löschen
14.11.2003 09:08:43
armin3003
Guten Morgen,

ich verwende zum Löschen von doppelten Werten folgenden Code:


Sub Makro1()
Dim i%
For i = 1 To Cells(Cells.Rows.Count, 1).End(xlUp).Row - 1
If Cells(i, 1) = Cells(i + 1, 1) Then
If Not IsEmpty(Cells(i, 2)) Then
Range(Cells(i + 1, 1), Cells(i + 1, 5)).ClearContents
Else
Range(Cells(i, 1), Cells(i, 5)).ClearContents
End If
End If
Next i
End Sub


Das klappt auch einwandfrei, jedoch möchte ich Werte die mehr als doppelt vorkommen nicht löschen. Gibt es hierfür eine Möglichkeit, diesen Code abzuändern?

Gruesse an alle

Armin

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehr als doppelt vorkommende WErte nicht löschen
14.11.2003 15:38:43
IngoG
HAllo Arnim,
Deinem Code zufolge sind deine Daten sortiert nach spalte A und du möchtest nur die eine Zeile löschen , wenn der wert in spalte a genau 2 mal vorkommt.

dann sollte die routine folgendermassen aussehen:


Sub Makro1()
Dim i%
For i = 1 To Cells(Cells.Rows.Count, 1).End(xlUp).Row - 1
If (Cells(i, 1) = Cells(i + 1, 1))and(Cells(i, 1) <> Cells(i + 2, 1)) Then
If Not IsEmpty(Cells(i, 2)) Then
Range(Cells(i + 1, 1), Cells(i + 1, 5)).ClearContents
Else
Range(Cells(i, 1), Cells(i, 5)).ClearContents
End If
End If
Next i
End Sub


habs zwar nicht geprüft, sollte aber funzen

Gruß Ingo

PS, eine Rückmeldung wäre nett...
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige