Hallo zusammen

Ich habe ein Problem mit dem automatischen befüllen der Textbox. Sobald ich das von mir Fett markierte aktiviere, bekomme ich den Fehler "Die XLookup Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden". Habe auch schon mit dem VLookup gearbeitet, aber auch da immer das gleiche.

Wie man sieht arbeite ich mit intelligenten Tabellen, aus denen sich die ComboboxPersonalNr die Personalnummer holt. Die intelligente Tabelle besteht nur aus 2 Spalten (Personalnummer, Mitarbeiter) und heißt Mitarbeiter.

Ich habe zusätzlich zu dem nicht funktionierenden "Private Sub ComboBoxPersonalNr_Change()" auch noch den "Private Sub UserForm_Initialize()" hinzugefügt, damit ihr sehen könnt was parallel dazu auch noch passiert. Vielleicht hängt es ja irgendwo zusammen.

Kann mir jemand bitte weiterhelfen, ich stehe auf dem Schlauch. :-)

Private Sub UserForm_Initialize()

'Zuordnung befüllen
TextBoxID.Value = WorksheetFunction.Max(shReisekosten.Columns(1)) + 1        'größten Wert suchen

'Comboboxen befüllen
ComboBoxPersonalNr.List = Range("Mitarbeiter[Personalnummer]").Value         'aus Liste auswählen
ComboBoxPersonalNr.ListIndex = 0
ComboBoxJahr.List = Range("Jahre").Value                                     'aus Liste auswählen
ComboBoxJahr.ListIndex = 0
ComboBoxJahr.Value = Year(Date)
ComboBoxMonat.List = shVerweise.ListObjects("Monate").DataBodyRange.Value    'aus Liste auswählen
ComboBoxMonat.ListIndex = 0
ComboBoxMonat.Value = Month(Date)
ComboBoxTag.List = shVerweise.ListObjects("Tage").DataBodyRange.Value        'aus Liste auswählen
ComboBoxTag.ListIndex = 0
ComboBoxTag.Value = Day(Date)
ComboBoxOrt.List = shVerweise.ListObjects("Ort").DataBodyRange.Value         'aus Liste auswählen
ComboBoxOrt.ListIndex = 0

'OptionButtonauswählen
'OptionButtonÜbernachtung.Value = True

'Checkboxauswählen
CheckBoxF.Value = False
CheckBoxM.Value = False
CheckBoxA.Value = False
CheckBoxN.Value = False

End Sub

Private Sub ComboBoxPersonalNr_Change()

'Nutze Xverweis um Mitarbeiternamen zur Personalnummer zu finden

TextBoxMitarbeiter.Value = WorksheetFunction.XLookup(ComboBoxPersonalNr.Value, Range("Mitarbeiter[Personalnummer]"), Range("Mitarbeiter[Mitarbeiter]"))

   
End Sub

Danke & LG

Berenike