Private Sub UserForm_Initialize()
Dim intCounter As Integer
For intCounter = 1 To 12
cboListe.AddItem Cells(intCounter, 1)
Next intCounter
cboListe.ListIndex = 0
End Sub
Private Sub cboListe_Change()
txtAuswahl.Text = Cells(cboListe.ListIndex + 1, 2)
End Sub