Ich habe eine Makro welches tip top läuft.
Nun hat aber eine Kollegin von mir andere Ländereinstellungen und wenn sie das Excel per Makro als csv speichert, kommen bei ihr die Zahlen mit einem Komma vor den Dezimalstellen, obschon es im Excel mit einem Punkt ist.
Aber für das Weiterverwenden dieses csv müsste es der Punkt sein, also zB 2000.80
Wie kann ich das Makro anpassen damit das nicht passiert?
Vielen Dank!
Sub B1_Create_CVS_C_Drive_Downloads()
Dim Bereich As Object ' Bereich der bearbeitet werden Soll
Dim Zeile As Object ' Bereich der bearbeitet werden Soll
Dim Zelle As Object ' Bereich der bearbeitet werden Soll
Dim strTemp As String ' temporärer Speicher für den ExportString
Dim sSW_Name_Tabelle As String
Dim sSW_Trennzeichen As String
Dim sSW_SpeicherPfad As String
Dim sRM_Datum_Zeit As String
Dim sSW_DateiName As String
Dim strTrennzeichen As String
Dim entity As String
Dim period As String
sSW_Name_Tabelle = "CSV_Export"
sSW_Trennzeichen = ";"
On Error GoTo Fehlermeldung
' Speichern CompanyName
entity = tab_general_journals.Range("c1").Value
' Speichern Period
period = tab_general_journals.Range("c5").Value
' Speichern vom aktuellen Dateipfad
sSW_SpeicherPfad = Environ("UserProfile") & "\Downloads\"
' Speichern vom Zeitstempel, Teil vom Dateinamen der CSV-Export-Datei
sRM_Datum_Zeit = Format(Now, "YYYY-MM-DD - HH-MM-SS")
' Zusammensetzen vom Dateinamen
sSW_DateiName = sSW_SpeicherPfad & entity & "_" & period & "_" & sSW_Name_Tabelle & " - " & sRM_Datum_Zeit & ".csv"
' Tabelle "CSV_Export" selektieren - ActiveSheet
tab_upload.Select
' Exportbereich setzen
Set Bereich = tab_upload.UsedRange
' Daten aus der Quelldatei auslesen und in die externe Datei schreiben
Open sSW_DateiName For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
strTemp = strTemp & CStr(Zelle.Text) & sSW_Trennzeichen
Next
If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = ""
Next
' externe Datei (CSV) schliessen und Arbeitsbereich löschen
Close #1
Set Bereich = Nothing
GoTo Fertigmeldung
Fehlermeldung:
'Fehlermeldung anzeigen
If Err Then MsgBox "File not saved"
GoTo Ende
Fertigmeldung:
'Fertigstellungsmeldung anzeigen
MsgBox "CSV saved. File saved in " & sSW_DateiName
Ende:
tab_general_journals.Activate
tab_general_journals.Range("c1").Select
End Sub