Private Sub cboOrt_Change()
Dim iCol As Integer
iCol = 2
cboOrtsteil.Clear
With Worksheets("Daten")
Do Until IsEmpty(.Cells(cboOrt.ListIndex + 1, iCol))
cboOrtsteil.AddItem .Cells(cboOrt.ListIndex + 1, iCol)
iCol = iCol + 1
Loop
End With
cboOrtsteil.ListIndex = 0
End Sub