Worksheet.Match funktioniert nicht wie gewünscht
04.08.2015 15:57:55
Uppe
ich bin ratlos.
Ich habe eine Excelliste, in der in Spalte B alphabetisch sortierte Namen stehen (die verschiedenen Anfangsbuchstaben sind durch Leerzeichen getrennt)
Adam
Anton
Berta
Bruno
Charlie
...
In einer weiteren Liste stehen unsortierte Namen, die in die erste Liste eingefügt werden sollen.
Ich habe dazu ein kleines Programm geschrieben.
Zuerst wird geschaut, ob der Wert evtl. schon drin steht:
lZeile = WorksheetFunction.Match(ThisWorkbook.Worksheets(1).Range("A" & i).Value, wksNamenListe.Range("B:B"), 0))
Das funktioniert. Wenn der Wert nicht gefunden wird, soll nach dem nächstkleineren Wert gesucht werden :
lZeile = WorksheetFunction.Match(ThisWorkbook.Worksheets(1).Range("A" & i).Value, wksNamenListe.Range("B:B"), 1)
Das funktioniert leider nicht. Mir wird immer irgendeine der Leerzeile ausgegeben, egal mit welchem Wert ich teste (auch z.B. mit Agate oder Birgit).
Wo ist mein Denkfehler?
Gruß Uppe