Doppelte Namen- je Doppelnamen mit unterschiedliche Farben

29.12.2025 21:50:56

Richard

Liebe Excelgemeinde,
ich möchte gerne in einem Tabellenblatt A2 bis Z100 jeden Doppelnamen mit einer anderen Farbe anzeigen lassen. Im voraus schon einmal vielen Dank für Eure Bemühungen.
Gruß Richard

AW: Doppelte Namen- je Doppelnamen mit unterschiedliche Farben

30.12.2025 02:53:01

Daniel

Doppelnamen oder doppelte Namen?
(1x Müller-Nachacker oder 2x Mustermann)

Das sind fast 2600 Zellen.
Wie viele unterschiedliche Farben werden maximal benötigt?

Ist VBA eine Option?

Könntest du dir vorstellen, eine Palette mit Farben bereit zu stellen oder sollen diese irgendwie ermittelt werden?

Gruß Daniel

Im Anhang ist...

30.12.2025 21:25:01

Case

Moin Richard, :-)

... eine Version mit Power Query - allerdings gibt diese die Doppelten/Mehrfachen Namen aus, mit Anzahl der Vorkommen: ;-)
https://www.herber.de/bbs/user/179933.xlsx

Wenn du diesen Weg wählen möchtest, kann ich dir noch eine Version machen, welche die Fundstellen (Spalte und Zeile) ausgibt. ;-)
Oder auch eine Version, die eine Hyperlinkformel generiert, damit du zur Fundstelle springen kannst. ;-)
Oder, oder, oder... ;-)

Name2 und Name 2 - deshalb findet er Name 2 nur einmal und taucht nicht auf. Kann man aber alles lösen - wenn man die Vorraussetzungen kennt. ;-)

Servus
Case

AW: Doppelte Namen- je Doppelnamen mit unterschiedliche Farben

30.12.2025 10:53:11

Richard

Hallo Daniel, ja wer schreiben kann hat Vorteile ich mein natürlich doppelte Namen. Farben ist egal, Anzahl ca. 20 und VBA ist eine Option.
Danke

AW: Doppelte Namen- je Doppelnamen mit unterschiedliche Farben

30.12.2025 11:58:48

Alwin Weisangler

Hallo Richard,

sind die Namen / doppelten Namen durch alle Spalten von A bis Z verteilt oder stehen diese in Spalte A.
Dann musst du dir auch im Klaren sein, dass es mit gut voneinander unterscheidbaren Farben seine Grenzen hat.

Es ist sicherlich sinnvoller eine Ausgabe zu erzeugen, welche Doppellungen untereinander nebst Zeilennummern dahinter in einer neuen Tabelle ausgibt.

Lade mal ein Demodatei, welche dein Problem zeigt anonymisiert hoch.

Den Code für eine praktikable Auswertung wird dir dann sicherlich jeder der Lust dazu hat hinterlassen können. Aber eine Tabelle ins Blaue zu bauen, wird wohl mit den ganzen Unklarheiten keiner Lust dazu haben.

Gruß Uwe

AW: Doppelte Namen- je Doppelnamen mit unterschiedliche Farben

30.12.2025 12:59:14

Daniel

Hi

Erstelle auf einem Blatt "Farben" in Spalte A ab Zeile 2 eine Liste mit Farben, dh färbe jede Zelle in einer anderen Farbe, diese Farben werden dann der Reihe nach verwendet.
Die Zelle in der Zeile 1 sollte die Standardfarbe haben.

Dann diese Code:

Dim Zelle as Range

Dim ZelleFarbe as Rang

Dim i as Long

Dim x as String

i = 0

Set ZelleFarbe = Sheets("Farbe").Range("A1")

With ActiveSheet.Range("A2:Z100")

    For each Zelle in .Cells

        If Zelle.value > "" then

            If Zelle.Interior.Color = ZelleFarbe.Color then

                If Worksheet function.CountIf(.Cells, Zelle.Value) > 1 then

                     X = Zelle.Value

                    .Replace x, True, xlwhole

                    i = i + 1

                    With .SpecialCells(xlcelltypeconstants, 4)

                        .Interior.color = ZelleFarbe.Offset(i, 0).Interior.Color

                        .Value = x

                     End With

                 End if

             End if

         End if

    Next

End with

Gruß Daniel

Achtung Code ist am Handy getippt und nicht getestet oder auf Rechtschreibung geprüft.

AW: Doppelte Namen- je Doppelnamen mit unterschiedliche Farben

30.12.2025 13:53:38

Daniel

Noch ne andere Methode
Die Farbtabelle bitte genau vorbereiten wie für die erste



Dim X

Dim dic as object

Dim ZelleFarbe as Range

Dim Zelle as Range

Set dic = createobject,("scripting.dictionary")

Set ZelleFarbe = sheets("Farbe").Range("A1")



For each Zelle in Range("A2:Z100").Cells

    X = Zelle.value

    If X > "" then

        If dic.exists(x) then

            Set dic(x) = union(dic(x), Zelle)

        Else

            Set dic(x) = Zelle

        End if

    End if 

Next



For each X in dic.Items

    If x.Cells.Count > 1 then

        Set ZelleFarbe = ZelleFarbe.Offest(1, 0)

        ZelleFarbe.Copy

        X.PasteSpecial xlpasteformats

    End if

Next

Auch hier: ungetestet.

AW: Doppelte Namen- je Doppelnamen mit unterschiedliche Farben

30.12.2025 14:07:59

Richard

https://www.herber.de/bbs/user/179930.xlsm
Hallo Daniel, hier eine Musterdatei habe Deinen ersten Beitrag getestet leider kein Erfolg
danke Richard

AW: Doppelte Namen- je Doppelnamen mit unterschiedliche Farben

30.12.2025 14:44:14

Alwin Weisangler

Hallo Richard,

auf die Schnelle:



Sub MehrfachVorkommenZeigen()

    Dim arrF(1 To 21), arrN(), Z As Range, oDic As Object, i&, j&, k&, r&, tmp

    Set oDic = CreateObject("Scripting.Dictionary")

    For i = 2 To 22

        arrF(i - 1) = Tabelle2.Cells(i, 1).Interior.Color

    Next i

    For Each Z In Tabelle1.UsedRange.Offset(1, 1)

        If Z.Value > "" Then oDic(Z.Value) = 0

    Next

    arrN = oDic.keys

    For i = LBound(arrN) To UBound(arrN)

        If WorksheetFunction.CountIf(Tabelle1.UsedRange, arrN(i)) > 1 Then

            r = r + 1

            For j = 1 To Tabelle1.UsedRange.Rows.Count

                For k = 1 To Tabelle1.UsedRange.Columns.Count

                    If arrN(i) = Tabelle1.Cells(j, k) Then

                        Tabelle1.Cells(j, k).Interior.Color = arrF(r)

                    End If

                Next k

            Next j

        End If

    Next i

End Sub

Gruß Uwe

AW: Doppelte Namen- je Doppelnamen mit unterschiedliche Farben

30.12.2025 19:03:05

daniel

Hi
wie äußert sich denn das mit dem "keinen Erfolg"?
Bei mir funktioniert es, kuckst du Beispiel.
Sogar beide Methoden.

Dass da im Code noch ein paar Tippfehler drin sein könnten, die du korrigieren musst, hatte ich dir ja geschrieben.

https://www.herber.de/bbs/user/179932.xlsm
Gruß Daniel

AW: Doppelte Namen- je Doppelnamen mit unterschiedliche Farben

30.12.2025 14:53:49

Alwin Weisangler

da scheint grad was im Editor (Codetag ist trotz korrekter Auswahl falsch zugeordnet) nicht so recht zu funktionieren. Deshalb die Datei.
https://www.herber.de/bbs/user/179931.xlsm

Gruß Uwe

AW: Doppelte Namen- je Doppelnamen mit unterschiedliche Farben

30.12.2025 15:20:08

Richard

Hallo Alwin vielen Dank für den Code ( muß ich mir zuerst erarbeiten) wünsche Die noch einen guten Rutsch ins neue Jahr Richard

AW: Doppelte Namen- je Doppelnamen mit unterschiedliche Farben

30.12.2025 15:12:15

Richard

Hallo Alwin,
Danke für Deinen Code habe ihn eingefügt. Den Namen Farbe habe ich in Tabelle2 umbenannt, jedoch zeigt es mir nichts an,oder habe ich noch mit meinem Grundwissen noch etwas vergessen?
Gruß Richard

Doppelte Namen- je Doppelnamen mit unterschiedliche Farben

Forumthread: Doppelte Namen- je Doppelnamen mit unterschiedliche Farben

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Doppelte Namen- je Doppelnamen mit unterschiedliche Farben

Forumthread: Doppelte Namen- je Doppelnamen mit unterschiedliche Farben

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread