VBA Unterschiedliches Markieren von doppelten Einträgen

Sub doppelte_färben() Dim zelle As Range For Each zelle In ActiveSheet.Range("A4:A712") If WorksheetFunction.CountIf(ActiveSheet.Range("A4:A712"), zelle.Value) > 1 Then zelle. _ Interior.Color = RGB(166, 166, 166) Next zelle End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub srtDoubleMark() Dim I As Long Dim J As Long Dim dblColorFlipFlop As Long dblColorFlipFlop = 2 'vorbelegen des FlipFlops ' von Zelle A4 bis Zelle A1715 (bis genutztes Maximum) For I = 1 To ActiveSheet.Range("A4:A1715").SpecialCells(xlCellTypeLastCell).Row 'wenn Zelle mit nachfolgender Zelle gleich, dann If Cells(I, 1) = Cells(I + 1, 1) Then 'L?nge des Bereiches vorfestlegen J = 2 ' FlipFlop schalten dblColorFlipFlop = 3 - dblColorFlipFlop ' Solange wie die nachfolgende Zelle immer noch gleich ist Do While Cells(I + J) = Cells(I, 1) 'Den Bereich der Gleichen erweitern J = J + 1 Loop ' Nun f?rben, je nach Stand des FlipFlop With ActiveSheet If dblColorFlipFlop = 1 Then .Range(Cells(I, 1), Cells(I + J - 1, 1)).Interior.Color = 3 Else .Range(Cells(I, 1), Cells(I + J - 1, 1)).Interior.Color = 4 End If End With End If Next I End Sub

Sub DoppelteMarkieren() Dim rngArtNr As Range, rngC As Range, rngMerk As Range Dim lngColors(1), bolColor As Boolean Dim lngR As Long lngColors(0) = RGB(250, 10, 250) lngColors(1) = RGB(150, 10, 150) Set rngArtNr = Range(Cells(4, 1), Cells(Rows.Count, 1).End(xlUp)) rngArtNr.Interior.Color = xlNone For Each rngC In rngArtNr If WorksheetFunction.CountIf(rngArtNr, rngC) > 1 Then rngC.Interior.Color = lngColors(-bolColor) If rngC rngC.Offset(1) Then bolColor = Not bolColor End If End If Next rngC End Sub

Hallo Rudi,
leider ist es mit einer Beispieldatei sehr schwierig, da ich von der Original-Eingabe-Datei mehrere Tabellenblätter erstellt habe.
Dein Code funktioniert bei der Originaldatei; prima.
Nun habe ich den Fehler oder sprich die Abweichung entdeckt. Zu den Teilenummern habe ich noch verschiedene Spalten mit einer Versionszuordnung.
Nun versuche ich so gut es geht eine Beschreibung.
Von der Originaldatei übernehme ich mit einer Formel die Zellinhalte und übernehme diese in andere Tabellenblätter. In dem jeweiligen Tabellenblatt, jede Version ist extra, sortiere ich aufsteigend zuerst nach der Version (2A, 2B usw. wo es zutraf mit einem X gekennzeichnet) und dann nach der Teilenummer.
Das hat dazu geführt, dass der doppelte Eintrag mit Deinem Code erkannt wird, er aber aktuell bei der Version nicht doppelt vorhanden ist. Der doppelte Eintrag taucht mit einer anderen Version dann am Ende auf.
Auf Grund von erwarteten Änderungen kann ich diese Datei nicht beim Erreichen des letzten Eintrages der Version abschneiden/Zeilen löschen.
Mein Gedankenansatz; gibt es nicht eine Möglichkeit die doppelten Einträge in Verbindung mit der Version zu erkennen? Aber die Versionszugehörigkeit ist mit einem X gekennzeichnet. Die Umwandlung in Zahlen sollte kein Problem sein wenn das hilft.
Ich hoffe, dass ich mich einigermaßen für Dich verständlich ausgedrückt habe. Ansonsten müssten wir Beide privat kommunizieren, um diese "Hürde" zu nehmen. Bitte Deine Meinung.
Nochmals Danke für Deine Mühe mit einem etwas älteren Herrn.
Gruß Gottfried

Hallo Yal,
leider hilft mir das nicht.
@ Rudi und Onur
Anbei meine Test-Datei wo mein Anliegen ersichtlich ist. Über jede andere Verbesserung wäre ich natürlich sehr dankbar. https://www.herber.de/bbs/user/142361.xlsm
Hinweis: Spalten F bis L sind in "Tool -2 Engine Version" ausgeblendet.
In "Tool_Type_Overview Original" funktioniert das markieren mit den doppelten Einträgen.
Nur in "Tool -2 Engine Version" nicht richtig, da die Abhängigkeit zu der Version nicht berücksichtigt wurde.
@ Rudi; dieses Problem ist mir erst später aufgefallen; ich hatte das bei meinem 1. posten in keiner Weise bedacht; sorry.
Ich hoffe, dass eine Lösung möglich ist.
Danke im voraus für Eure zeit mich zu unterstützen.
Grüße Gottfried

Beliebteste Forumthreads (12 Monate)

VBA Unterschiedliches Markieren von doppelten Einträgen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Unterschiedliches Markieren von doppelten Einträgen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread