Hallo,
sollte so klappen:
Dim x&, strVariable$, txtDatei_Arr$(), Datei$
Dim s1$, s2$, s3$, S&, E&
Dim I&
Datei = ThisWorkbook.Path & "\test.txt"
S = 1
Open Datei For Input As 1
While Not EOF(1)
Line Input #1, strVariable
E = Len(strVariable)
For I = 1 To E
If Mid(strVariable, I, 1) = "," Then
ReDim Preserve txtDatei_Arr(x)
txtDatei_Arr(x) = Mid(strVariable, S, I - S)
x = x + 1
S = I + 1
ElseIf I = E Then
ReDim Preserve txtDatei_Arr(x)
txtDatei_Arr(x) = Mid(strVariable, S, E - S + 1)
x = x + 1
End If
Next
Me.CB_Kom_Ressourcen.AddItem txtDatei_Arr(x - 1)
Me.CB_Kom_Ziele.AddItem txtDatei_Arr(x - 2)
Me.CB_Kom_Massnahmen.AddItem txtDatei_Arr(x - 3)
Wend
Close 1
Grüße
Till
|