Hallo
Der folgende Code sollte dir weiterhelfen können.
Sub macrobyliketoprogramblogspotch()
Dim Arr(6) As String
Arr(0) = "(FPL-" & Cells(1, 1).Value & "-" & Cells(1, 8).Value
Arr(1) = "-" & Cells(1, 4).Value & "/" & Cells(1, 5).Value & "-" & Cells(1, 16).Value
Arr(2) = "-" & Cells(1, 2).Value & "0000"
Arr(3) = "-" & Cells(1, 6).Value & " " & Cells(1, 7).Value
Arr(4) = "-" & Cells(1, 3).Value & " " & Cells(1, 10).Value
Arr(5) = "-)"
Open "D:\Test\Textdatei.txt" For Output As #1
For i = LBound(Arr) To UBound(Arr)
Print #1, Arr(i)
Next
Close #1
End Sub
Ich würde mich sehr freuen, wenn du meine Seite besuchen würdest ;)
______________________________________
schokobons, http://liketoprogram.blogspot.ch
|