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