Bitte um Hilfe von Rudi Maintaire
26.08.2016 13:32:26
Rudi
ich habe folgendes Makro von dir in folgendem Beitrage gefunden.
Sub aaaa()
Dim rng As Range, i As Integer
For Each rng In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)) 'in A
i = InStr(rng, "R423")
If i > 0 Then
rng.Characters(i, 4).Font.Color = RGB(255, 0, 0)
End If
i = InStr(rng, "R201")
If i > 0 Then
rng.Characters(i, 4).Font.Color = RGB(0, 255, 0)
End If
'etc
Next
End Sub
https://www.herber.de/forum/archiv/1364to1368/1366183_bestimmter_Text_in_Zelle_farbig.html
Vlt. könntest du mir den auf meine Situation anpassen.
In Tabelle2 Spalte A habe ich Einträge, welche in der kompletten Tabelle1 gesucht werden soll und wenn gefunden gefärbt werden sollen.
Mit einer Bedingten Formatierung komme ich leider nicht weiter da ich manchmal in einer Zelle mehrer Einträge habe und auch Zeichen die nicht mit gefärbt werden sollen.
Hier mal meine Liste zum besseren Verstädniss
https://www.herber.de/bbs/user/107851.xlsm
mfg Blue Bird