|
Sorry! Da hab ich mich verguckt. Der Code in
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)
war schon korrekt. Problem: Wenn keine Übereinstimmung gefunden wird, wird ein Fehler ausgegeben, der nicht verarbeitet wird.
Außerdem bei den vlookup's mal prüfen, ob diese Syntax die richtige ist . Für eine genaue Übereinstimmung bei nicht aufsteigend sortierten Werten muß normalerweise
VLookup(Suchkriterium, Matrix, Ergebnisspalte, False)
verwendet werden, also das Argument False als viertes Argument.
Leider kann ich Deinen Code hier nicht vollständig testen, weil ich hier nur O2003 zur Verfügung habe. Bestimmte Objekte, die Du verwendest, gibts hier nicht. Und an höheres Office komme ich heute nicht mehr.
Severus
|