Textdatei importieren in ComboBox mit Zeilenumbruc
16.11.2008 17:38:26
Edie
in eine ComboBox wird eine Textdatei eingelesen. Die Textdatei hat nur eine Spalte.
Leider wird der Inhalt der Textdatei in der ComboBox in eine Zeile dargestellt.
Wie erzwinge ich einen Zeilenumbruch in der ComboBox? Was sollte in den
Eigenschaften der ComboBox geändert werden?
Mit dem String & vbNewLine funktioniert es nicht, wie bei einer TextBox.
Die Eigenschaft Multiline fehlt auch.
Private Sub UserForm_Activate()
Dim Text As String
Open ThisWorkbook.Path & "\Test.txt" For Input As #2
Do Until EOF(2)
Line Input #2, Test
ComboBox1.Text = ComboBox1.Text & Text & vbNewLine
Loop
Close #2
End Sub
Hat jemand eine Idee und kann helfe? Danke im Voraus.
Grüße
Anzeige