Gleiche Worte Markieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Const Bereich = "A2:H30" Sub Text_markieren() Dim AC As Range, AJ As Range Range(Bereich).Font.Bold = False Range(Bereich).Interior.ColorIndex = xlNone Application.ScreenUpdating = False For Each AC In Range(Bereich) For Each AJ In Range(Bereich) If AC.Address AJ.Address Then If AC "" And AC.Value = AJ.Value Then AJ.Font.Bold = True AJ.Interior.ColorIndex = 8 'oder 28 End If End If Next AJ Next AC Application.ScreenUpdating = True MsgBox "Fertig" End Sub

…ist die BedingtFormatierung nicht anwendbar, Alexander,
denn die würde stets die ganze Zelle behandeln. Eine Trennung nach unterschiedlichen ZellTextBestandteilen ist dabei nicht vorgesehen. Bleibt definitiv nur VBA, wobei zum Zwecke des Vgls die ZellInhalte per vbFkt Split in EinzelTexte aufgeteilt wdn müssten. Dann muss nach deren Position in den EinzelZellen gesucht wdn, um im Wiederholungsfall festzustellen, ab wo sie dort und in der Zelle ihres 1.Auftretens vorhanden sind. Daraus kann man die für die vbMethode Characters notwendigen Angaben gewinnen. Außerdem muss eine FarbListe (in der VBA-Prozedur) vorbereitet wdn, um jede unterschiedliche MehrfachNennung auch mit unterschiedlichen Farben zu kennzeichnen.
Welche TextTeile überhaupt mehrfach in den Zellen auftreten, kann man mit folgender singularen MatrixFml, die auch UDFs verwendet, feststellen:
{=VJoin(WENN(ZÄHLENWENN(F1:F4;"*"&DataSet(VSplit(VJoin(F1:F4;", ");", ");"";;-1;1)&"*")=1;"";DataSet(VSplit(VJoin(F1:F4;", ");", ");"";;-1;1));", ";-1)}
Für F1:F4: {"LB1, LB2, LB3, LB4";"LB1, AL10, AL9";"LB2, AL9, AL11";"LB4, XX1"} liefert die Fml dieses Ergebnis: LB1, LB2, LB4, AL9
Das kann dann die Grundlage einer SubProzedur sein, die jetzt nur noch ermitteln muss, ob einer dieser Texte und dann welcher ab wo im ZellText auftritt und dann diesen TextBereich mit der diesem Text zuzuordnenden TextFarbe färbt und ggf auf fett setzt.
ArchivLinks zu den verwendeten UDFs:
DataSet (Vs1.3) https://www.herber.de/forum/archiv/1504to1508/t1507939.htm#1508954
VJoin (Vs1.4) & VSplit (Vs1.1) https://www.herber.de/bbs/user/99024.xlsm (BspMappe m.den UDF-Pgmm)
Morhn, Luc :-?
Der beste Beweis für intelligentes Leben im Universum ist, dass noch niemand versucht hat, Kontakt mit uns aufzunehmen. H.Lesch, 2018, Sonneberg
Deshalb Intelligenz steigern mit

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread