Thema Datum  Von Nutzer Rating
Antwort
15.01.2018 21:11:44 Gast007
NotSolved
Blau Makro zum zellen Vergleichen und Formatierung übernehmen
 16.01.2018 17:25:23 Gast007
NotSolved

Ansicht des Beitrags:
Von:
Gast007		 Datum:
16.01.2018 17:25:23		 Views:
482		 Rating:
     
Antwort:
  Ja
Thema:
Makro zum zellen Vergleichen und Formatierung übernehmen

Soo 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

Es funktoniert jetzt soweit das bei gleichen Namen B1:D9 rot eigefärbt wird

 

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?

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
15.01.2018 21:11:44 Gast007
NotSolved
Blau Makro zum zellen Vergleichen und Formatierung übernehmen
 16.01.2018 17:25:23 Gast007
NotSolved