Ich hab in der Excelhilfe keine Funktion dafür gefunden.
Gibt es dafür eine? Muss doch eigentlich... oda?
Greetz,
Klamsi
Sub lstBox_schreiben()
Dim i As Integer
Dim Lst As Object
Set Lst = Sheets(1).ListBox1
Open "c:\temp\liste.txt" For Output As #1
For i = 0 To Lst.ListCount - 1
Print #1, Lst.List(i)
Next
Close 1
End Sub
Sub lstBox_lesen()
Dim Lst As Object, tmp As String
Set Lst = Sheets(1).ListBox1
Open "c:\temp\liste.txt" For Input As #1
Do Until EOF(1)
Input #1, tmp
Lst.AddItem tmp
Loop
Close 1
End Sub