Private Sub cmbAuswahl_Click()
'Werte aus Excel-Zellen in TextBox 1 - 11 einlesen:
  Dim lngRowIndex As Long
  Dim intColIndex As Integer
 
    lngRowIndex = cmbAuswahl.ListIndex + 2
 
 
'  texttemp = xlWS.Cells(lngRowIndex, 1).Value
 '       Text1(1).Text = texttemp
 
  For intColIndex = 1 To 11
        Text1(intColIndex).Text = xlWS.Cells(lngRowIndex, intColIndex).Value    _
          '###############################
'        texttemp = xlWS.Cells(lngRowIndex, intColIndex).Value
 '       Text1(intColIndex).Text = texttemp
  Next intColIndex
 
  Dim F As Integer
  Dim sLine As String
 
End Sub