|
Prüf als erstes mal
Label105.Caption = Application.WorksheetFunction.VLookup(ComboBox17, Worksheets("Daten").Range("O2:P15"), 2) & Chr(10) & "anzugebender Ort: " & Application.WorksheetFunction.VLookup(ComboBox17, Worksheets("Daten").Range("O2:Q15"), 3)
Das ist auf jeden Fall kein korrekter Code
Nach ComboBox17, kommt ein ganzer Wust von Code, der keine Matrix übergibt. Dann kommt nach dem nächsten Komma eine Matrix, wo eine Spaltenangabe hingehört und nach dem letzten Komma eine "3", wo True oder False hoinghört (oder gar nichts)
Du mußt VLookup die Argumente so übergeben, wie in meinem vorigen Post beschrieben.
VLookup(Suchkriterium, Matrix, Ergebnisspalte, False)
wobei das letzte Argument True/False optional ist und nur die Suchmethode vorgibt.
Severus
|