strDatei = Application.GetSaveAsFilename(InitialFileName:="LODAS_" & Range("a1") & "_" & Range("b1") & ".txt", _
fileFilter:="strText Files (*.txt), *.txt")
Print #1, "[Allgemein]"
Print #1, "Ziel="
Print #1, "Version_LVE=5.0"
Print #1, "Nr1=Zelle A1"
Print #1, "Nr2=Zelle B1"
Print #1, "[Bewegungsdaten]"
<<Hier endet die feste Angabe>>
"1";"Zelle C1=Datum)";"Zelle B2";"Zelle C2";"1"Zelle A2;"02";;;"'Imp. LVE 5.0'"
<<Dies soll eine Schleie werden bis Zeilennummer 10000 (WENN KEINE ANGABE IN B2 VORHANDEN IST, SOLL ER DIE KOMPLETE ZEILE NICHT KOPIEREN>>
Erklärung
1. Der feste obere Part soll lediglich die Nummern in den Zellen A1 und B1 auslesen
2. Schleife: 1 ist eine konstante, danach Abfrage der Zellen (Trenung jeweils mit Simikolon) -
;;;"'Imp. LVE 5.0'" ist stets im Anschluss anzufügen.
Hier ein Beispiel wie die .txt Datei Aussehen müsste:
[Allgemein]
Ziel=
Version_LVE=5.0
Nr1=111
Nr2=321
[Bewegungsdaten]
1;01.09.2017;100,00;00001;1;02;;;
1;01.09.2017;200,00;00002;1;02;;;