Suchen
15.08.2017 14:44:07
Torsten
ich habe ein kleines Problemchen bei dem mir sicher einer von euch helfen kann.
Ich möchte in einem Feld einen Text eingeben, anschliessend auf eine vorher erstellte Form die mit Makro versehen ist klicken und in einem anderen Feld das Ergebnis, nämlich die zugehörige Produktnummer, angezeigt bekommen.
Im Moment habe ich dieses hier "hingefriemelt".
Sub ZeileFinden()
Dim Ergebnis As Range
Set Ergebnis = Sheets("Daten").Columns(4).Find(what:=Sheets("Angebot").Range("AI15").Value, _
lookat:=xlPart)
If Ergebnis Is Nothing Then
MsgBox "Leider nichts gefunden"
Else
Sheets("Angebot").Range("AI23").Value = Sheets("Daten").Cells(Ergebnis.Row, 3).Value
End If
End Sub
Das Ganze funktioniert auch halbwegs, nämlich unter folgender Bedingung.
Ich suche z.B nach: 2Nach
Der tatsächliche Eintrag heisst: Prüf.v.Fein-u.Präzisionswaagen 2Nachkom.
Ergebnis: 72008692
Passt!
Es geht allerdings nicht wenn:
Ich suche nach: Prüf 2 Nach
Ergebnis:
Leider nichts gefunden!
Ausserdem habe ich noch ein weiteres Problem.
Wie kann ich "weitersuchen"?
D.h. es ist möglich das es mehrere Lösungen gibt die dem eingegebenen Text entsprechen. Ich würde also wenn möglich nochmal auf die Form klicken und bekomme als Ergebnis die nächste Nummer die den Text beinhaltet.
Ich hoffe ich habe mich nicht zu kompliziert ausgedrückt.
MfG
Torsten