56119189.xls 'zeile 1
56119190.xls 'zeile 2
56731811.xls
so stehen die wörter in der txt datei.
Wenn er dann das zweite mal die schleife durchläuft soll er der variablen den wert 56119190.xls geben usw..
solange bis end of file ist.
das mit endoffile habe ich schon hinbekommen, nur er speichert nicht eine einzelnde zeile in einer variablen ab :
----------------------------
Dim FN As Integer
Dim strLineText
FN = FreeFile()
Open "c:\temp\versanddaten.txt" For Input As #FN
While Not EOF(FN)
Line Input #FN, strLineText
MsgBox strLineText
Wend
Close #FN
-----------------------------------
Bitte um einen lösungsvorschlage