Liebe Excel-Gemeinde,
mit dem nachstehenden Code wird ein Blatt mit xls-Format in ein Blatt txt-Format konvertiert.
With wbZiel
Application.DisplayAlerts = False
.SaveAs strFile, _
FileFormat:=xlText, CreateBackup:=False 'Zeile neu aufgenommen f. tabstopp getrennt
.Close 'wenn die neue Mappe geschlossen werden soll!
Dabei werden jedoch leider die ursprünglichen Kommata in Punkte umgewandelt.
Mit nachstendem Replacement-Code werden die Kommata zwar ersetzt, aber nur bei den Zellen mit Werten 0 (Nullwerte bleiben mit Punkt). Als krönender Abschluss wird auch noch Anführungszeichen eingefügt.
Range("A3:P37").Select
Selection.Replace What:=".", Replacement:=","
Konkretes Beispiel: https://www.herber.de/bbs/user/67079.txt
Wer weiss bitte Rat?
Danke im Voraus,
Bernd