Ich habe ein Eingabeformular. Es gibt dann auch eine Option bearbeiten. Dort wird das Eingabeformular mit vorhandenen Datensätzen gefüllt, siehe Code und man
kann dann eben bearbeiten und ändern. Mit den Textfeldern gibts keine Probleme aber:
Die Comboboxen "Stelle" und "Abschluss" zeigen das ausgewählte an. Es müsste aber (Weil es ja bearbeiten ist) Stelle und Abschluss auch bearbeitet werden können, also die Liste auswählbar sein.
Wenn ich einen neuen Datensatz anlege, funktioniert das ja mit: 'cbStelle befüllen cbStelle.List = Range("tblAnzeigen").Value

Wie füge ich denn diesen Code jetzt unten beim befüllen der Eingabemaske dazu? Oder bin ich komplett auf dem falschen Wege ? Es geht natürlich auch, dass ich den obigen Code unten einfüge. Dann ist es allerdings so, dass ich JEDES MAL beim Bearbeiten diesen Satz richtig auswählen muss. Es soll also 1.) wie unten im Code das bisher ausgewählte angezeigt werden und 2.) trotzdem möglich sein, etwas anderes auszuwählen.


'Tabellenzeile ermitteln
P_Tabellenzeile = Range("tblBewerber[BewerberID]").Find(P_BewerberID, LookAt:=xlWhole).Row - .HeaderRowRange.Row

'Eingabemaske befüllen
txtBewerberID.Value = P_BewerberID
txtVorname.Value = .DataBodyRange(P_Tabellenzeile, 2).Value
txtName.Value = .DataBodyRange(P_Tabellenzeile, 3).Value
txtStraße.Value = .DataBodyRange(P_Tabellenzeile, 4).Value
txtPLZ.Value = .DataBodyRange(P_Tabellenzeile, 5).Value
txtStadt.Value = .DataBodyRange(P_Tabellenzeile, 6).Value
cbStelle.Value = .DataBodyRange(P_Tabellenzeile, 7).Value
cbAbschluss.Value = .DataBodyRange(P_Tabellenzeile, 8).Value
txtTelefon.Value = .DataBodyRange(P_Tabellenzeile, 9).Value
txtEmail.Value = .DataBodyRange(P_Tabellenzeile, 10).Value





Danke für eure Hilfe!