Mit folgendem Code fülle ich eine Combobox und Textbox.
Private Sub cboListe2_Change()
txtAuswahl16.Text = Cells(cboListe2.ListIndex + 2, 22)
End Sub
Private Sub UserForm_Initialize()
Dim intCounter As Integer
For intCounter = 2 To 130
cboListe2.AddItem Cells(intCounter, 21)
Next intCounter
cboListe2.ListIndex = 0
End Sub
Wie müsste der Code aussehen, wenn es aus einem anderen Blatt zum Beispiel "Daten" gefüllt wird ?
Vielen Dank im Voraus
Gruß Volker