Office: Doppelte Werte per Makro

Hallo,

ich hätte ein Makro gebraucht, welches doppelte Werte iin Spalte A automatisch farbig markiert.

Könnte mir evtl. jemand weiter helfen?

Vielen Dank!

 

warum nicht bedingte Formatierung?

Tabelle1

	A
1	1
2	2
3	5
4	1
5	2
6	3

die bedingte Formatierung Fülleffekte, Symbole, Datenbalken
werden in dieser Tabelle nicht dargestellt

Bedingte Formatierung Haupttabelle 1
Wird angewendet auf	Nr. Bed. Regeltyp	Operator	Formel1	Formel2	Format Schrift Füll-farbe	Unterstrichen	Schrift- farbe	Muster	Muster-farbe	Typ	Bereich
$A:$A	01.Bed.: Formel ist		=ZÄHLENWENN($A:$A;A1)>1		5287936					2	$A:$A

Bedingte Formatierung Haupttabelle 2					oberere/unterer Bereich
Wird angewendet auf	Nr. Bed.	Format Zelle	Anhalten	Auswahl	Anzeige	Anzahl	Durchschnitt	Typ	Bereich
$A:$A	01.Bed.		Falsch					2	$A:$A

Die Bedingungen wurden mit Excel-Version ab 2007 ausgelesen.

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip

http://Hajo-Excel.de/tools.htm

Add-In-Version 25.26 einschl. 64 Bit

XHTML-Tabelle zur Darstellung in Foren, einschl. Funktion zum Zurücklesen in eine Excel-Tabelle

 

Oder so:

 

Eine bedingte Formatierung ist leider nicht ideal, da sich die Werte oftmals ändern und zum Beispiel Zellen gelöscht werden und dadurch der Zellbereich öfter angepasst werden müsste. Sollte es vergessen werden, was leider schon mehrmals vorkam, führt es im schlimmsten Fall dazu, dass dopppelte Werte nicht mehr korrekt hervorgehoben werden

 

Das sollte bei Auswahl der ganzen Spalte und einem aktuellen Excel eigentlich kein Problem mehr sein…

 

wie in meinem Beisiel schon beschrieben.

Gruß Hajo

 

Hi
ein Makro ist halt leider nicht automatisch und müsste jedes mal neu ausgeführt werden, wenn sich Werte ändern.
Automatisch ist da leider nur die Bedingte Formatierung.

Sinnvoll kann es aber sein, ein Makro zum Einrichten der Bedingten Formatierung zu haben, welches man gelegentlich ausführen kann, wenn man mit den Daten gearbeitet hat, da das Löschen oder Einfügen von Zellen die unangenehme Eigenschaft hat, die Bedingten Formate im Bereich zu vervielfachen. Wenn das passiert, dann einfach das Makro laufen lassen um da aufzuräumen.

Code:

Sub Duplikate_in_Spalte_A()
With Columns("A:A")
    .FormatConditions.Delete
    .FormatConditions.AddUniqueValues
    With .FormatConditions(1)
        .SetFirstPriority
        .DupeUnique = xlDuplicate
        .Font.Color = -16383844
        .Interior.Color = 13551615
    End With
End With
End Sub

 

Hi

falls ein Makro die Färbung der doppelten übernehmen soll, dann hier eine Möglichkeit:
bearbeitet wird der selektierte Bereich, das kannst du aber in der Zeile mit WITH nach deinen Wünschen ändern (z.B. Sheets("xxx").Usedrange.Columns(1) für den genutzten Bereich in Spalte A)

Code:

Sub DoppelteFärben()
Dim dic As Object
Dim x
Set dic = CreateObject("Scripting.dictionary")

With Selection '--- hier Bereich angeben, der bearbeitet werden soll
    .Interior.ColorIndex = xlNone
    For Each x In .Cells
        If x.Value <> "" Then
            If dic.exists(x.Value) Then
                Set dic(x.Value) = Union(dic(x.Value), x)
            Else
                Set dic(x.Value) = x
            End If
        End If
    Next
End With
For Each x In dic.keys
    If dic(x).Count > 2 Then dic(x).Interior.Color = vbRed
Next

End Sub

 

Das mit dem Zerreissen von bed.Form. war mal eine (lange) Zeit lang ein Problem von Excel. Wenn ich mich recht entsinne ab 2007 bis 2019 oder 2021 ich meine auch ganz frühe Versionen von 365 hatten das Problem. Aber seit einiger Zeit kommt das kaum noch vor.
Wenn man natürlich beim Zellen löschen innerhalb einer Spaltenformatierung "nach links verschieben" sagt, dann braucht man sich nicht wundern, wenn der Bereich zweigeteilt wird. Insofern ist der Vorschlag von Slowboarder nicht schlecht. Aber man wird dieses Makro wohl eher selten brauchen.

 

kleine korrektur des zweiten makros,

in der unteren IF-Abfrage muss es natürlich lauten: If dic(x).Count > 1