Private
Sub
ComboBox56_Change()
Dim
lngZeile
As
Long
If
ComboBox56.ListIndex <> -1
Then
lngZeile = ComboBox56.ListIndex + 3
TextBox53.Text = Sheets(
"AUSWERTUNG"
).Cells(lngZeile, 1)
End
If
End
Sub
oder
Private
Sub
ComboBox56_Change()
Dim
lngZeile
As
Long
If
ComboBox56.ListIndex <> -1
Then
lngZeile = ComboBox56.ListIndex + 3
TextBox53.Text = ThisWorkbook.Sheets(
"AUSWERTUNG"
).Cells(lngZeile, 1)
End
If
End
Sub