Suchkriterium in Tabelle hervorheben

[Silvi20]

Hallo,
brauche einen Rat. Habe eine Beispieltabelle und ein Suchfeld. Würde gerne das der Suchtext nicht den ganzen Text in einer Zelle hervorhebt (Schrift rot färben) sondern nur die Buchstaben aus dem Suchfeld. Sollte sich bei jeder Eingabe neu, über die gesamte Tabelle,  anpassen. Habe eine kleine Beispieldatei angehängt. Hoffe das ist verständlich. 

Liebe Grüße

[00202]

Moin,  

so der Spur nach:  
[attachment=51897]

Hier noch für die ganze Tabelle:  
[attachment=51898]

[Silvi20]

Das ist ja sensationell, hätte nicht gedacht dass das möglich ist. Vielen, vielen Dank. 
Eine Kleinigkeit hab ich noch. Ist es auch möglich das Groß- und Kleinschreibung ignoriert wird? Wenn ich im Suchfeld z.B. köln eingebe, das trotzdem dann Köln rot markiert wird? Das wäre noch top.

[00202]

Moin,  

schreibe die Codezeile so:  

Code:

lngPOS = InStr(UCase(Cells(lngTMP, lngCOL)), UCase(Target.Text))

Dann kannst du nach "mÜnChEn" suchen.

[Silvi20]

Ich danke dir, läuft wunderbar [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

[Silvi20]

Hallo
habe das heute an der original Tabelle ausprobiert. Sie besteht aus ca. 4000 Zeilen. Das klappt soweit auch ganz gut, nur dauert es nach jeder Eingabe schon ein paar Sekunden. Kann man den Code so umschreiben dass das etwas schneller geht? Das wäre wirklich toll wenn da noch einmal jemand drüber gucken könnte.
Anbei nochmal eine Testdatei

LG

[{Boris}]

Hi,

es muss halt jedes einzelne Zeichen abgeklappert und bei Bedarf gefärbt werden - das sind ne Menge Prüfungen inkl. Aktionen.
Möglicherweise geht das mit RegExp schneller - da gibt es hier sicher auch ein paar Experten zu.
Würde aber nicht allzu viele Hoffnungen darein setzen...

[RPP63]

Moin!
Setze mal an den Anfang des Worksheet_Change
Application.ScreenUpdating = False

Am Ende kannst Du es mit = True wieder einschalten.

Dennoch gestatte mir ein kritisches Wort:
Excel ist keine Textverarbeitung!
Umfangreiche Formatänderungen bewirken im "besten" Fall "nur" ein zähes Arbeiten.
Irgendwann ist Schluss und Excel verabschiedet sich ohne Vorwarnung …

Gruß Ralf

[00202]

Moin,  

zwei Punkte die mir spontan aufgefallen sind:

Du suchst nach dem Filtern trotzdem in allen Zellen - ergo auch in den schon ausgeblendeten Zellen. Das kann man leicht ändern und bringt einen Geschwindigkeitsvorteil.
Das "Change-Ereignis" wird bei jeder Änderung aufgerufen. Man könnte erst die Eingabe beenden und dann z. B. nach Return starten. Auch wieder schneller.

Es gibt noch ein paar Stellschrauben, an denen man drehen kann. Es kommt aber auf die Arbeitsweise und die Datenmenge an! Immer, wenn du einzelne Zeichen innerhalb einer Zelle verändern willst, wird es problematisch.

Eine Alternative wäre hier die Bedingte Formatierung. Da wird leider die Schriftart der ganzen Zelle verändert, aber es ist schnell und schafft trotzdem eine gewisse Übersicht - sofern es dir darum geht.

Welchen Weg möchtest du gehen?

[Silvi20]

Danke euch, da es ja funktionell und keine Spielerei sein soll habe ich den Tipp von Case mit der bedingten Formatierung umgesetzt. So ist die Geschwindigkeit vollkommen in Ordnung.