Anzeige
Archiv - Navigation
1832to1836
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

csv Zahlenformat nicht ändern

csv Zahlenformat nicht ändern
15.06.2021 15:15:25
Patricia
Hallo zusammen
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Code fehlerhaft
15.06.2021 15:22:01
Rudi
Hallo,

Ich habe eine Makro welches tip top läuft.
kann eigentlich nicht sein.
hier:

If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
ist strTrennzeichen = ""
Gruß
Rudi
AW: csv Zahlenformat nicht ändern
15.06.2021 19:01:05
Luschi
Hallo Patricia,
in meine, de-Versionen von Windows 10 und Office 2019 ergibt
- CStr(Zelle.Text) den Wert 12.123,34, wenn in der formatierten Zelle der Wert 12.123,34 angezeigt wird
- und CStr(Zelle.Value) den Wert 12123,34
- um 12123.34 zu erhalten, verwende ich: Replace(CStr(Zellel.Value),",",".",1,-1)
Gruß von Luschi
aus klein-Paris
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige