Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1660to1664
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
Inhaltsverzeichnis

Werte in einer Zelle finden und farbig markieren

Werte in einer Zelle finden und farbig markieren
04.12.2018 11:22:15
Rainer
Hallo
ich habe in Spalte A mehrere einzelne Namen stehen. In Spalte B habe ich innerhalb einer Zelle mehrere Namen.
Wie kann ich in Spalte B die Namen farbig markieren, die einzeln in Spalte A vorkommen.
Userbild

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte in einer Zelle finden und farbig markieren
04.12.2018 11:56:39
hary
Moin
Geht nur mit Makro.
Wenn die Namen in SpalteB durch ein Leerzeichen getrennt sind.
Sub Name_faerben()
Dim a
Dim i As Long, ii As Long
Columns(2).Font.ColorIndex = xlAutomatic
For ii = 1 To Cells(Rows.Count, 2).End(xlUp).Row
With Cells(ii, 2)
a = Split(.Value, " ")
For i = LBound(a) To UBound(a)
If Application.CountIf(Columns(1), a(i)) Then
Cells(ii, 2).Characters(InStr(1, Cells(ii, 2), a(i)), Len(a(i))).Font.Color = vbRed
End If
Next
End With
Next
End Sub

gruss hary
AW: Werte in einer Zelle finden und farbig markieren
04.12.2018 14:08:22
Rainer
Hallo
vielen Dank. Es klappt super mit Leerzeichen oder auch sonstigen Trennzeichen.
In meiner Tabelle habe ich ";" als Trennzeichen, jedoch ist zwischen den Zeilen ein Zeilenumbruch durch das Zeichen Char(10). Das macht mir hier Probleme.
Meine Excel sieht so aus:
Userbild
Anzeige
AW: Werte in einer Zelle finden und farbig markieren
04.12.2018 17:36:01
hary
Moin
Dann versuch mal so.
Sub Name_faerben()
Dim a
Dim strName As String
Dim i As Long, ii As Long
Columns(2).Font.ColorIndex = xlAutomatic
For ii = 1 To Cells(Rows.Count, 2).End(xlUp).Row
With Cells(ii, 2)
a = Split(.Value, Chr(10))
For i = LBound(a) To UBound(a)
strName = Left(a(i), InStr(1, a(i), ";") - 1)
If Application.CountIf(Columns(1), strName) Then
Cells(ii, 2).Characters(InStr(1, .Value, strName), Len(strName)).Font.Color = vbRed
End If
Next
End With
Next
End Sub

gruss hary
AW: Werte in einer Zelle finden und farbig markieren
05.12.2018 07:48:01
Rainer
Vielen Dank
So klappt es wunderbar
Gruß Rainer
Anzeige
AW: Werte in einer Zelle finden und farbig markieren
05.12.2018 08:33:56
hary
Moin Rainer
Hier noch mal mit Pruefung. Falls in der Zelle in SpalteB nur ein Wort steht ohne Semikolon, laeuft der Code in einen Fehler.
Sub Name_faerben()
Dim a
Dim strName As String
Dim i As Long, ii As Long
Columns(2).Font.ColorIndex = xlAutomatic
For ii = 1 To Cells(Rows.Count, 2).End(xlUp).Row
With Cells(ii, 2)
a = Split(.Value, Chr(10))
For i = LBound(a) To UBound(a)
If InStr(1, a(i), ";") Then
strName = Left(a(i), InStr(1, a(i), ";") - 1)
If Application.CountIf(Columns(1), strName) Then
.Characters(InStr(1, .Value, strName), Len(strName)).Font.Color = vbRed
End If
End If
Next
End With
Next
End Sub

gruss hary
Anzeige
AW: Werte in einer Zelle finden und farbig markieren
08.12.2018 12:09:55
Rainer
Nochmals besten Dank.
Die zusätzliche Prüfung hat noch die letzten Schwierigkeiten behoben, da ich tatsächlich einige Zeilen ohne ";" hatte und dort eine Fehlermeldung bekam.
Gruß Rainer

335 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige