ich bräuchte mal wieder dringend Hilfe, da ich mit meinen bescheidenen VBA Kenntnisse nicht weiter komme.
Ich habe eine Userform erstellt und möchte diese über einen SVerweis mit einer Tabelle verbinden.
In Spalte A stehen Zimmernummern und in Spalte B das Datum des Vertragsabschlusses.
In der Userform gibt es eine Combobox cboZimmer, in der das Zimmer ausgewählt werden kann. In einer textbox txtVertrag soll nach Auswahl das entsprechende Datum erscheinen.
Bisher hatte ich es mit folgender Syntax gelöst:
txtVertrag = ActiveSheet.Cells(cboZimmer.ListIndex + 7, 2)
Nun musste ich jedoch auf Wunsch des zukünftigen Nutzers in der Tabelle unter jedes Zimmer eine leere Zeile für Kommentare einfügen und so funktioniert natürlich der Code nicht mehr, da in der Liste die Leerzeilen nicht mitgezählt werden.
Ich habe nun versucht das Problem mit einem SVerweis zu lösen, aber leider funktioniert es nicht. Ich bekomme immer die Fehlermeldung "Die VLookup-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden". Folgenden Code habe ich versucht:
txtVertrag = Application.WorksheetFunction.VLookup(cboZimmer.Value, Range("A8:A65536"), 2, True)
Kann mir vielleicht jemand einen Tip geben, was ich falsch mache? Muss dringend weiterkommen!
Vielen Dank schon mal im Voraus,
Kiki