Herbers Excel-Forum - das Archiv

Dubletten hervorheben

Bild

Betrifft: Dubletten hervorheben
von: Düppi

Geschrieben am: 08.01.2007 16:35:29
Liebe Excel-Profis,
ich hätte gern eine VBA-Lösung (bitte keine Formel) für folgende Aufgabe:
In Spalte J (Zellen 5 bis 52) möchte in Doubletten anzeigen. Durch ein Makro ist es so, dass die älteren Einträge in diesem Bereich mager, die jüngeren fett angezeigt werden. Demnach sind die älteren Doubletten mager.
Und genau diese mageren Doubletten möchte ich rot einfärben. Der Benutzer wird auf das rote Signal hin die Zeile überschreiben. Der neue Eintrag bleibt mager, aber die rote Markierung weicht der schwarzen Standart-Schriftfarbe.
Das VBA soll also nur einen roten "Wink" auf doppelte Einträge liefern, sonst nichts - kein Löschen oder so!
Wäre schön, wenn es jemand hinbekommt, bittet und grüßt Düppi
Bild

Betrifft: AW: Dubletten hervorheben
von: Thomas

Geschrieben am: 08.01.2007 18:50:52
Probiere es mal so:
(Rückmeldung wäre nett).
Option Explicit
Sub Rote_Dubletten()
Dim j
For j = 5 To 52
If Application.WorksheetFunction.CountIf(Range("J5:J52"), Range("J" & j)) > 1 Then
'Dublette gefunden ==> prüfen, ob sie "fett" oder "mager" ist
If Range("J" & j).Font.Bold = False Then
'Dublette ist "alt" ==> rot markieren
Range("J" & j).Interior.ColorIndex = 3
End If
End If
Next j
End Sub

Gruß,
Thomas :o)
Bild

Betrifft: AW: Dubletten hervorheben
von: Düppi
Geschrieben am: 08.01.2007 18:55:57
Hallo Thomas,
funktioniert bestens! vielen Dank, Gruß Düppi!
Bild

Betrifft: AW: Dubletten hervorheben
von: Oberschlumpf

Geschrieben am: 08.01.2007 18:56:41
Hi
Vorher am besten eine Kopie der Datei erstellen.
Versuch es mal so:
Sub Rot()
Dim liZeile As Integer
For liZeile = 5 to 52
If Range("J" & liZeile).Font.Bold = False Then
Range("J" & liZeile).Font.ColorIndex = 3
End If
Bext
End Sub

Konnte ich helfen?
Ciao
Thorsten
Bild

Betrifft: AW: Dubletten hervorheben
von: Düppi
Geschrieben am: 08.01.2007 19:02:57
Hallo Thorsten,
Du konntest - besten Dank,
Düppi!
 Bild
Excel-Beispiele zum Thema "Dubletten hervorheben"
Zeile mit Cursor farblich hervorheben