Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1720to1724
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1720to1724
1720to1724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vergleich Zelleninhalt und Einfärben

Vergleich Zelleninhalt und Einfärben
05.11.2019 10:38:06
Tobias
Hallo,
per Makro würde ich gerne folgende Aktion automatisieren: eine Tabelle wird zeilenweise dahingehend untersucht, ob die Inhalte der Zellen in Spalte I und Spalte J identisch sind. (Nur) in diesem Fall wird dann die Schriftfarbe der Zelle in Spalte I schwarz gefärbt (Font.ColorIndex = 1).
Danke + LG,
Tobias

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vergleich Zelleninhalt und Einfärben
05.11.2019 10:45:47
Michael
Hallo Tobias,
warum soll es ein Makro sein? Das kann man doch mit Bedingter Formatierung ganz einfach lösen.
Gruß
Michael
AW: Vergleich Zelleninhalt und Einfärben
05.11.2019 10:56:05
Piet
Hallo
wenn du trotzdem ein Makro nehmen willst dann einfach so probieren. Ich denke den Code verstehen auch Laien
mfg Piet
Sub markieren()
Dim j As Long, lz As Long
'LastZelle in Spalte I suchen (von unten)
lz = Cells(Rows.Count, "I").End(xlUp).Row
'Schleife zum vergleichen und markieren
For j = 2 To lz
If Cells(j, "I").Value = Cells(j, "J").Value Then
Cells(j, "J").Font.ColorIndex = 1
End If
Next j
End Sub

Anzeige
AW: Vergleich Zelleninhalt und Einfärben
05.11.2019 11:13:39
Tobias
Hallo Piet,
das Makro funktioniert super – dass die Zellen in der Spalte I (und nicht J) die schwarze Schrift bekommen sollen, habe ich gerade noch selber hinbekommen:
Cells(j, "I").Font.ColorIndex = 1
Vielen Dank!
Tobias
AW: Danke für die nette Rückmeldung oWt
06.11.2019 10:18:53
Piet
...

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige