CSV selbst erstellt - Komma statt Punkt
Philipp
Ich erzeuge über ein - im Archiv gefundenes - Makro aus den Daten eine CSV-Datei.
Für die verschiedenen Spalten brauch ich eigene Formatierungen (zB Spalte 2: Datumsformat mit ".", klappt).
Wie bekommen ich es hin, dass er bei den Werten (Spalten 4, 5 und 6) ein Komma als Dezimaltrennzeichen verwendet anstatt eines Punktes? Leider kennen ich dafür erforderlichen Befehle nicht ...
Anbei der Code, wie ich ihn bisher habe!
Danke schon vorab für jede Hilfe!
LG Philipp
===
Sub CSVExport()
Dim sFile As Variant, msgAntwort As Variant
Dim Daten As Range, Zeile As Object, Zelle As Object
Dim strTemp As String
On Error GoTo errorhandler
With ActiveSheet
ChDrive (ThisWorkbook.Path)
ChDir (ThisWorkbook.Path)
SendKeys "{ENTER}"
sFile = Application.GetSaveAsFilename(InitialFileName:="TRDB--" & Format(Date, "YYYY-MM-DD") _
_
& "--" & VBA.Format(VBA.Time, "hh-mm-ss") & ".csv", _
FileFilter:="CSV-Datei (*.csv), *.csv") '& vbCrLf
Set Daten = .UsedRange
Close
Open sFile For Output As #1
For Each Zeile In Daten.Rows
If Zeile.Row > .Range("A65536").End(xlUp).Row Then
MsgBox "Die Datei wurde erfolgreich exportiert.", vbInformation, "Export _
erfolgreich"
Exit Sub
End If
For Each Zelle In Zeile.Cells
If (Zelle.Column = 2) And Zelle "" Then
strTemp = strTemp & CStr(Format(Zelle, "DD") & "." & Format(Zelle, "MM") _
& "." & Format(Zelle, "YYYY")) & ";"
Else
If (Zelle.Column = 4) Then
strTemp = strTemp & CStr(Zelle.Text) & ";"
Else
strTemp = strTemp & CStr(Zelle.Text) & ";"
End If
End If
Next Zelle
Print #1, Left(strTemp, Len(strTemp) - 1 + (Left(strTemp, 1) = "z"))
strTemp = ""
Next Zeile
Close #1
End With
Exit Sub
errorhandler:
MsgBox "Es ist ein Fehler aufgetreten. Die Datei konnte nicht vollstndig exportiert werden.", _
_
vbCritical, "Fehlermeldung"
End Sub