Zellen Vergleichen und Farbe übernehmen
17.01.2018 10:13:02
Patrick
Ich möchte über ein Makro eine Bereich mit einem Anderen vergleichen und bei Übereinstimmung die Farben der Zelle und Text übernehmen.
ich habe mir eine kleine Datei zusammen gesetzt mit folgendem Makro
Die Beispiel Datei ist unter
https://www.herber.de/bbs/user/119031.xlsm
zu finden
ich habe mir eine kleine Datei zusammen gesetzt mit folgendem Makro
Sub Vergleich()
Dim bereich1 As Range, bereich2 As Range, zelle, zellen
Set bereich1 = Range("B1:D9")
Set bereich2 = Range("B21:B23")
For Each zellen In bereich1
For Each zelle In bereich2
If zellen.Value = zelle.Value And zellen.Value "" Then
zellen.Font.Color = RGB(255, 0, 0)
Exit For
Else: zellen.Font.ColorIndex = xlColorIndexAutomatic
End If
Next
Next
End Sub
B21:B23 sind Farbig die Farbe wird über Kürzel in Zelle C21:C23 bestimmt (bedingte Formatierung)
Ich möchte nun das Zelle B1:D9 bei gleich auftretenden Namen die Farben von der jeweiligen Zelle B21:B23 übernimmt
hat dazu jemand eine Lösung?
Danke