Sonderzeichen vor Spalten einfügen bei Export
18.04.2019 11:50:46
Andre
ich generiere aus einer Listbox eine CSV-Datei. Exportiert werden die ersten drei Spalten der Listbox.
In der dritten Spalte werden 20-stellige Barcodes eingelesen und in der Datei soll vor diesen Nummern ein Apostroph eingefügt werden. Wenn ich im Code & "'" einfüge, schreibt er mir das Apostroph auch vor die zweite Spalte. Es darf aber nur vor die Dritte Spalte.
So soll das später aussehen: SHP-12312;1;'00225446655444889542
Könnte mir jemand den Code anpassen?
Danke
Andre
Private Sub CommandButton_Export_Click()
'MsgBox "Einen Moment bitte," & vbLf & "die Daten werden geschrieben.", vbInformation, " "
Dim i As Long
Dim j As Long
Dim sFile As String, stext$, sSep As String, iFilenr
iFilenr = FreeFile
sSep = ";"
With UserForm_WA.ListBox1
sFile = "S:\GEMEINSAM\Logistik\Glatfelter\W A\GP_WA_Rückmeldung_" & TextBox_Auftrag. _
Value & _
".csv"
Open sFile For Output As iFilenr
For i = 0 To .ListCount - 1
stext = .List(i, 0)
For j = 1 To 2
stext = stext & sSep & .List(i, j)
Next
Print #iFilenr, stext
Next
Close iFilenr
End With
MsgBox "Datei wurde angelegt:" & vbLf & sFile, vbInformation, " "
End Sub