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

Doppelte Datensätze markieren

Doppelte Datensätze markieren
08.11.2003 13:38:23
Burghard
Hallo,
ich habe immer noch mit einem Problem zu kämpfen. Kann mir jemand den Code so umschreiben, daß bei mehreren gleichen Datensätzen der erste doppelte Datensatz mitmarkiert wird?

Hilfe wäre super! Danke im voraus!

Gruss Burghard

Beispiel:

Tabellenspalte A enthält nach Sortierung:

1
2
2
2
3
4
4
5

Nach Codeausführung (s.u.): Markiert mit roter Schrift wird:

1
2
2 rot
2 rot
3
4
4 rot
5

Ich brauche aber diese Markierung:

1
2 rot
2 rot
2 rot
3
4 rot
4 rot
5

Kann man den Code dahingehend abändern?


Sub Doppelt_Red()
Application.ScreenUpdating = False
Rng = Selection.Rows.Count
For i = Rng To 1 Step -1
myCheck = ActiveCell
ActiveCell.Offset(1, 0).Select
For j = 1 To i
If ActiveCell = myCheck Then
Selection.Font.Bold = True
Selection.Font.ColorIndex = 3
End If
ActiveCell.Offset(1, 0).Select
Next j
ActiveCell.Offset(-i, 0).Select
Next i
Application.ScreenUpdating = True
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Datensätze markieren
08.11.2003 13:47:25
Nepumuk
Hallo Burkhard,
so geht's:


Option Explicit
Sub Doppelt_Red()
Dim lngZeile As Long
Application.ScreenUpdating = False
For lngZeile = 1 To Cells(65536, 1).End(xlUp).Row
If Cells(lngZeile, 1) = Cells(lngZeile + 1, 1) Then
With Range(Cells(lngZeile, 1), Cells(lngZeile + 1, 1))
.Font.Bold = True
.Font.ColorIndex = 3
End With
End If
Next
Application.ScreenUpdating = True
End Sub



Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige
AW: Doppelte Datensätze markieren
09.11.2003 21:06:23
Burghard
Hallo und vielen Dank für die Hilfe. Genau das,was ich suchte!

Klappt einwandfrei! :-)

Schönen Gruß, Burghard
AW: Doppelte Datensätze markieren
08.11.2003 13:48:25
Hajo_Zi
Hallo Burhard

das geht noch ohne VBA

AW: Sorry - habe nicht gesehen...
08.11.2003 17:42:31
FP
Hallo Hajo,

... dass Du ihm genau denselben Tipp bereits gegeben hast :-(

Man sollte eben doch immer ALLE Antworten vorher lesen ;-)

Servus aus dem Salzkammergut
Franz
AW: Doppelte Datensätze markieren
09.11.2003 21:08:19
Burghard
Hallo Hajo,

vielen Dank für die Hilfe. Das klappt ebenfalls einwandfrei! :-)

Schönen Gruß, Burghard
AW: Doppelte Datensätze markieren - ohne VBA...
08.11.2003 17:39:34
FP
Hallo Burghard,

... geht's doch viel schneller und wird bei jeder Änderung automatisch aktualisiert!

Excel Jeanie HTML
Anzeige

194 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige