Hallo,
dieser Code sollte den gewünschten Output generieren:
Sub ExportTxt()
Dim strDatei As String
Dim strDate As String
Dim flNr As Integer
Dim rng As Range
flNr = FreeFile
strDatei = Application.GetSaveAsFilename(InitialFileName:="LODAS_" & Range("a1") & "_" & Range("b1") & ".txt", _
fileFilter:="strText Files (*.txt), *.txt")
Open strDatei For Output As flNr
Print #flNr, "[Allgemein]"
Print #flNr, "Ziel="
Print #flNr, "Version_LVE=5.0"
Print #flNr, "Nr1=Zelle A1"
Print #flNr, "Nr2=Zelle B1"
Print #flNr, "[Bewegungsdaten]"
With ActiveSheet
strDate = .Range("C1").Text
For Each rng In .Range(.Range("A2"), .Range("A2").End(xlDown)).Rows
If Not IsEmpty(rng.Cells(1, 2)) Then
Print #flNr, "1;" & strDate & ";" & Trim(rng.Cells(1, 2).Text) & ";" & Trim(rng.Cells(1, 3).Text) & ";1;" & Trim(rng.Cells(1, 1).Text) & ";02;;;'Imp. LVE 5.0'"
End If
Next
End With
Close #flNr
End Sub
LG, Ben
|