ich habe ein Problem mit der "Suchfunktion" in Excel VBA.
Ausgangssituaion:
1. Tabellenblatt: Spalte1 = Artikelnummern, Spalte2 = Preis
2. Tabellenbaltt: Spalte1 = Artikelnummern, Spalte2 = info/Lagerbestand
Ich lasse per Script das Tabellenblatt 2 nacheinander durchsuchen nach den einzelnen Artikelnummern aus TB1 gesucht wird und im Falle einer Übereinstimmung die Spalte info/Lagerbestand in TB1 Spalte3 kopiert wird.
Das Skript zur Such nach den entsprechenden Artikelnummern in TB2:
"
Set Found = Range(Cells(1, 2), Cells(5500, 2)).Find(Artikelnummer_TB1, Cells(5500, 2), xlFormulas, xlPart, , xlNext)
"
Das kanze klappt scheinbar sehr gut, nur werden nicht alle Artikelnummern gefunden.
Die nichtgefundenen Artikelnummern finde ich aber problemlos wenn ich danach "per Hand" suche, d.h. mit strg.f im TB2 die entsprechende Artikelnummer suche.
Wenn ich diese Aktion aufzeichne entsteht folgende Macro:
"
Range("D4604").Select
Cells.Find(What:="16180600", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
"
Ich hoffe ich habe mein Problem verständlich beschrieben.
Wer hat einen Tipp bzw. Hinweis, was ich falsch mache.
Gruss
Ferdinand