Suchfunktion mit VBA
27.05.2004 13:36:15
Henning
Ich hab folgendes Problem. Ich suche aus einer Spalte (!) den Wert, der in eine Textbox eingegeben wird. Finde ich den, dann übernehme ich die Werte der nebenstehenden Spalten in eine andere Tabelle. Hier der Code dafür:
If TextBox2.Value <> Sheets("Datenquelle").Cells(h, 1).Value Then h = h + 1 Else: GoTo Ort2
Loop Until h = 4620
MsgBox ("Firma nicht gefunden")
GoTo ort3
und so weiter. Das Funktioniert, ABER: der Suchtext muss ganz genau, mit groß- und kleinschreibung und allem drum und dran eingetippert werden. Das kann die Windows such-funktion besser.
Hat jemand einen Tipp, wie ich z.B. einen Worttteil suchen kann, oder eine ungefähre Entsprechung?
Danke im voraus
Henning