Gleiche Worte Markieren

Alexander · 2019-05-09T22:09:29+00:00

Hallo Lieblings Forum, stehe wieder vor einer kniffligen Aufgabe. In meiner Tabelle sieht es so aus, dass ich 25 Zeilen habe wo Texte reinkommen. z.B.: Zeile 1: LB1, LB2, LB3, LB4 Zeile 2: LB1, AL10, AL9 Nun wollte ich fragen, ob es möglich wäre, dass was gleich ist hervorzuheben als Fett Schrift oder mit Farbe. Halt nur das Wort wie im Beispiel LB1 soll Blau und Fett sein. Danke schon mal im voraus über die Hilfe

Hallo Alexander
ohne deine Datei zu kennen hier mal ein kleines Beispiel Makro über eine For Next Schleife.
Bei grossen Datenmengen ist Such & Find besser, bei 20-30 Zeilen geht es auch mit For Next.
Deinen aktuellen Bereich musst du in Const selbst korrigieren, zum Testen nahm ich: "A2:H30"
mfg Piet

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

Forumthread: Gleiche Worte Markieren

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Gleiche Worte in Excel Markieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)