Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Inhalt suchen über UserForm | Herbers Excel-Forum


Betrifft: Inhalt suchen über UserForm von: Stephan
Geschrieben am: 06.01.2010 13:41:04

Hallo,
Was muß im Beispiel abgeändert werde, damit auch alles gefunden wird, wo das Suchkriterium enthalte ist.

https://www.herber.de/bbs/user/67008.xls

Im Beispiel soll nach Eingabe von "i" alle Werte in der Listbox angezeigt werden in denen "i" enthalten ist. Also:
BirneSpalte2
ZitroneSpalte2

nach weiterer Eingabe des Buchstaben "r" also zusammen "ir" soll nur noch "BirneSpalte2" angezeigt werden.
Nach Doppelklick auf das Suchergebniss soll weiterhin in die Tabelle zum Suchergebniss gesprungen werden.

Gruß
Stephan

  

Betrifft: AW: Inhalt suchen über UserForm von: Tino
Geschrieben am: 06.01.2010 13:58:07

Hallo,
meinst Du so?

https://www.herber.de/bbs/user/67010.xls

Gruß Tino


  

Betrifft: AW: Inhalt suchen über UserForm von: Stephan
Geschrieben am: 06.01.2010 14:30:12

Hallo Tino,
Genau so habe ich es gemeint! Danke
Deine Lösung unterscheidet sogar zwischen Groß- und Kleinbuchstaben. Kann man dies aber auch abschalten? D.h. das Ergebniss sollte bei der Eingabe Groß- und Kleinbuchstaben ignorieren.
Gruß


  

Betrifft: AW: Inhalt suchen über UserForm von: Rudi Maintaire
Geschrieben am: 06.01.2010 14:43:50

Hallo,
anstatt

If InStr(MeAr(A, 1), TextBox1) > 0 Then

so:
If InStr(LCase(MeAr(A, 1)), LCase(TextBox1)) > 0 Then
Gruß
Rudi


  

Betrifft: AW: Inhalt suchen über UserForm von: Stephan
Geschrieben am: 06.01.2010 16:12:43

Funktioniert bestens!

Vielen Dank an alle!


  

Betrifft: AW: Inhalt suchen über UserForm von: Peter Feustel
Geschrieben am: 06.01.2010 14:00:32

Hallo Stephan,

ändere einmal

If LCase(Left(Cells(index, 2), Len(TextBox1))) = LCase(TextBox1) Then

in

If Left(LCase(Cells(index, 2)), Len(TextBox1)) = LCase(TextBox1) Then

und arbeite vor allen Dingen überall mit Option Explicit

Gruß Peter


Beiträge aus den Excel-Beispielen zum Thema "Inhalt suchen über UserForm"