Private
Sub
Userform1_Initialize()
ComboBox56.RowSource =
"AUSWERTUNG!A3:A1000"
End
Sub
Private
Sub
ComboBox56_Change()
Dim
lngZeile
As
Long
If
ComboBox56.ListIndex <> -1
Then
lngZeile = ComboBox56.ListIndex + 3
TextBox1.Text = Cells(lngZeile, 5)
TextBox2.Text = Cells(lngZeile, 7)
TextBox3.Text = Cells(lngZeile, 11)
Else
End
if