ich lade mit folgendem Code Werte in eine Combobox.
Private Sub UserForm_Initialize()
Worksheets("Kategorie").Activate
ActiveSheet.Unprotect ""
cboNamen.List = Worksheets("Kategorie").Range("A1").CurrentRegion.Value
cboNamen.ListIndex = 0
End Sub
Das funktioniert auch.
Leider schaffe ich es nicht den in der Combobox gewählten Wert an eine Textbox zu übergeben, zu editieren und an die ursprüngliche Stelle in der Spalte der Tabelle zurückzuschreiben.
Könnt Ihr mir helfen?
Dnke und Gruß
Guido