AW: Erzeugte Textdatei ansprechen
03.04.2017 13:53:40
Franzi
Sub imaSchnittstelle()
'letzte befüllte Zeile des Tabellenblattes wird ermittelt
lz = Sheets("KFL_allePrgr_23032017").Cells(Rows.Count, "A").End(xlUp).Row
'In diesem Verzeichnis werden die Textdateien gespeichert --> kann verändert werden
Pfad = "C:\Users\Desktop\Textdateien für IMA Schnittstelle\"
For i = 8 To 15
x = Cells(i, 1)
'Öffnet bei jedem Schleifendurchlauf eine neue Textdatei
Open Pfad & x & ".txt" For Output As #1
'Diese Spalten werden in die Textdatei reingeschrieben --> kann verändert werden
Print #1, Cells(i, 1) & " ;" & "0000;"
Print #1, "0010" & " ;" & Cells(i, 10) & " ;" & _
Cells(i, 10) & _
" ;" & Cells(i, 18) & ";" & _
Cells(i, 17) & ";" & Cells(i, 5) & ";" & Cells(i, 9) & ";" & Cells(i, 16) & ";" & Cells(i, 11) & _
_
" ;" & Cells(i, 20) & ";" & Cells(i, 21)
'Schließt und speichert die geöffnete Datei
Close #1
'Springt in die nächste Zeile, sofern die Bedinung noch erfüllt ist
Next i
'Wenn die untere Zeile gleich ist, dann:
If ActiveCell = ActiveCell.Offset(1) Then
m = ActiveCell.Offset(1)
Open Pfad For Append As #1
Print #1, m
Close #1
End If
'Benachrichtigung, dass Textdateien gespeichert wurden
MsgBox " Die Textdateien wurden im Verzeichnis: C:\Users\Desktop\Textdateien für IMA _
Schnittstelle gespeichert"
End Sub
so sieht mein Code momentan aus, aber wie gesagt, tut nicht das, was er tun soll -.-