Wert wird in falsche Zeile geschrieben???

Private Sub UserForm_Initialize()
ComboBox1.Visible = True
ComboBox1.List = Range("WKKlasseBeginner!A16:G86").CurrentRegion.Value
ComboBox1.ListIndex = iCounter - 1
und zwar bei .CurrentRegion.Value....denn ohne CurrentRegion füllt sich die ComboBox richtig,
aber dann tritt ein Fehler auf bei

Private Sub ComboBox1_Change()
Dim iCounter As Integer, iRow As Integer
Dim sSelect As String
With ComboBox1
If .ListIndex >= 0 Then
sSelect = .List(.ListIndex, 0) & "  " & .List(.ListIndex, 1)_
& " " & .List(.ListIndex, 2) & "  mit  " & .List(.ListIndex, 5)
iRow = .ListIndex
ComboBox1.Text = sSelect
End If
For iCounter = 1 To 11
Controls("TextBox" & iCounter).Text = .List(iRow, iCounter - 1)
Next iCounter
End With
End Sub


und zwar in der Zeile Controls("TextBox" & iCounter......

diesen Fehler bringt er nicht wenn das CurrentRegion enthalten ist (Unverträglichkeit?)

2.)Problem.....

ich klicke in der ComboBox einen Teilnehmer an, gebe einen Wert in das freie Textfeld ein und 

schicke den Satz ab,.....dann soll das laut Code in die Zeile geschrieben werden, in der 

Übereinstimmung mit TextBox1 = Start-Nr. besteht...., jedoch schreibt er den Satz in die Zeile 16?

https://www.herber.de/bbs/user/7669.xls

Ich weiss.....alles ziemlich umfangreich...aber vielleicht kann eine(r)

mit VBA Erfahrung mal drübersehen und mir weiterhelfen

Vielen Dank

Peter S