Suche ein Codeschnipsel
19.06.2020 20:34:47
Thomas
Ich habe eine Suchfunktion. Ich gebe in einer Zelle eine 9 stellige zahl ein und die wird danach in der Spalte B gesucht.
Jetzt mein Problem. in der Spalten B sind die 9 stelligen Zahlen um die Augen zu schonen so aufgeführt 000 111 222.
Um die Zahlen die man sucht einzugeben möchte ich aber dass man die Zahlen auch so eingeben kann 000111222. Hier kommt aber dann die Meldung dass die Zahlen nicht gefunden wurden.
Gibt es hierzu einen passenden Codeschnipsel den man im Skript einfügen kann?
Das Skript das ich habe sieht so aus:
lng_artikelnummer = Range("D6") 'InputBox("Gesuchte Artikelnummer")
Set rng_gefunden = obj_wks_quelle.Range("B:B").Find(lng_artikelnummer)
If Not rng_gefunden Is Nothing Then
lng_zeile = rng_gefunden.Row
Freundliche Grüsse
Thomas