Anzeige
Archiv - Navigation
1792to1796
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

Makro CSV erstellen und formatieren

Makro CSV erstellen und formatieren
17.11.2020 18:20:22
Horst
Hallo Zusammen,
habe ein Problem damit, die richtige Formatierung in mein CSV-File zu bekommen.
In meinem Excel Sheet werden Dezimal Stellen mit einem Punkt getrennt, im CSV sind es dann Kommas.
Wenn ich in den Region Einstellung von Windows das anderes einstelle speichert Excel das CSV auch richtig ab.
Das Problem ich kann nicht sicherstellen das diese Einstellung auf jedem Rechner gleich ist.
Gibt es eine Möglichkeit das dieses Format (Dezimalzeichen immer ein Prunkt ist) fix einzustellen?
Habe schon mit Format() und saveas versucht, habe es aber nicht hinbekommen.
Hier ein kleines Beispiel wie es zurzeit aussieht im CSV
F42,1
P01,16
P02,2,50
P03,7
P06,0
P07,18,86
Hier ein Beispiel wie es aussehen soll:
F42,1
P01,16
P02,2.50
P03,7
P06,0
P07,18.86
hier der aktuelle Code:

Sub ExportCSV()
Dim strDateiname As String
strDateiname = "C:\Users\Export.csv"
Dim strA1, strA2, strB1, strB2 As String
' Cells(1, 2) --> 1 = Zeile; 2 = Spalte
strA1 = Cells(31, 6).Value
strA2 = Cells(31, 7).Value
strB1 = Cells(32, 6).Value
strB2 = Cells(32, 7).Value
strC1 = Cells(33, 6).Value
strC2 = Format(Cells(33, 7).Value, "0.00")
strD1 = Cells(34, 6).Value
strD2 = Cells(34, 7).Value
strE1 = Cells(35, 6).Value
strE2 = Cells(35, 7).Value
strF1 = Cells(36, 6).Value
strF2 = Cells(36, 7).Value
Open strDateiname For Output As #1
Print #1, strA1 & "," & strA2
Print #1, strB1 & "," & strB2
Print #1, strC1 & "," & strC2
Print #1, strD1 & "," & strD2
Print #1, strE1 & "," & strE2
Print #1, strF1 & "," & strF2
Close #1
MsgBox "Fertig! Gespeichert unter: " & strDateiname
End Sub
Ich bedanke mich schon mal im Voraus für jede Idee oder Hilfe.
MFG
Horst

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige