Thema Datum  Von Nutzer Rating
Antwort
Rot Textbox aus Combobox nach Änderung befüllen
09.08.2023 17:13:07 Berenike
NotSolved
09.08.2023 17:56:48 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Berenike
Datum:
09.08.2023 17:13:07
Views:
424
Rating: Antwort:
  Ja
Thema:
Textbox aus Combobox nach Änderung befüllen

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Textbox aus Combobox nach Änderung befüllen
09.08.2023 17:13:07 Berenike
NotSolved
09.08.2023 17:56:48 ralf_b
NotSolved