Do Schleife ...stehe ein wenig auf dem Schlauch
Frank
irgendwie stehe ich auf dem Schlauch.
Was ist an dieser Schleife falsch?
For i = 1 To UBound(arrDaten)
If Cells(i + 1, 1) ComboBox1.Text Then
Do Until arrDaten(i, 1) = ComboBox1.Text
Exit Do
Loop
End If
Next
ListBox2.AddItem arrDaten(i, 2)
Sie endet nicht wenn die Bedingung
arrDaten(i, 1) = ComboBox1.Text
erfüllt ist.Vielen Dank
Frank