Komma-Darstellung beim Abspeichern als TXT
14.12.2007 11:52:07
Michael
ich hab eine Mappe mit ca. 20 Sheets, welche per Makro als txt Datei abgespeichert werden sollen. Ich verwende folgendes Makro:
Sub speichern_aller_tabellen_KST()
Dim ws As Worksheet
Dim name As String
For Each ws In Application.ActiveWorkbook.Worksheets
ws.Activate
'ws.Columns("C:C").NumberFormat = "0.00"
'### Upload-Pfad wo TXT Datei gespeichert werden soll ist anzupassen
'### Beginn der Dateibezeichnung ist anzupassen
ChDir "S:\TEMP\"
'### Eingabe des Namens incl vollst. Pfad
name = "S:\TEMP\KOSTEN_KST_" & ActiveSheet.Range("B4").Value & ".txt"
ActiveWorkbook.SaveAs Filename:=name, FileFormat:=xlTextMSDOS, CreateBackup:=False
Next
End Sub
Das komma wird in den allen sheets egal ob die zeile
'ws.Columns("C:C").NumberFormat = "0.00"
aktiv ist oder nicht als "." dargestellt im letzten sheet aber immer als ",".
Da die Dateien zum Upload bereit gestellt werden sollen ist das nicht ganz so schön. Wie kann ich eine einheitliche Darstellung erreichen? ob nun Punkt oder komma ist mir eigentlich egal.
Micha