Volltextsuche auf Exel 2000 Tabelle

Computer: Software & Programmierung Visual Basic
#1

Hi,

ich versuche eine Suchfunktion für eine Tabelle zu schreiben (ca 600 Zeilen)
in der ersten Spalte steht der Name, nach dem ich suchen möchte.

Eine einfache suche nach der genauen Übereinstimmung mit dem eingegeben Namen ist ja nicht schwer (For schleife die alle Zeilen durchgeht und dann abfrage ob gleich und .select)

Diese Methode ist aber unbefriedigend, da der genau Eingabename meist nicht bekannt ist!

A liebsten wäre mir noch, wenn die Suche schon während der Eingabe läuft, damit man gleich sieht ob man überhaupt richtig ist.

Groß und Kleinschreibung muß auch irgendwie ignoriert werden!

Also mal als kleines Beispiel:

Eingabe: „mül“

dann wird noch angezeigt:

Müller Frank
peter, müller

das ein- und ausblenden der Zeilen bekomme ich selber hin, mir geht es hauptsächlich um die Bedingung dafür!

Also kurz:

  • Volltextsuche ohne Berücksichtigung von Groß- und Kleinschreibung
  • Suche schon während der Eingabe

Vielen Dank schon mal für Antworten und Hilfestellungen

#2

Hallo Zodan,

im VBA-Fenster neue Form einfügen, auf der Form ein kleine und eine große Textbox einfügen. Bei der großen Textbox die Eigenschaft „Mulitline“ auf True

Doppelklick auf die kleine Textbox und folgenden Code einfügen
Private Sub TextBox1_Change()
TextBox2.Text = „“
With Worksheets(1).Range(„a1:b500“)
Set c = .Find(TextBox1.Text, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
TextBox2.Text = TextBox2.Text & vbCrLf & c.Value & „,“ & Cells(c.Row, 2)
Set c = .FindNext©
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With

End Sub

Viel Erfolg

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Danke, das funktioniert schon ziemlich gut!
Versteh zwar noch nicht genau wie, aber das werd ich jetzt durch Versuchen herausbekommen!