Probleme beim Speicherformat

Hallo zusammen,
mein Problem aus dem letzten Beitrag (Datei öffen / Datei speichern) ist grundsätzlich gelöst. Ich kann flexibel Dateien auswählen und Namen/Speicherorte bestimmen.
Zum Speichern habe ich folgendes festgelegt:
Application.GetSaveAsFilename("c:\irgendeine\datei.txt, "TXT Files (*.txt), *.txt")
Das Problem jetzt ist:
a) Wenn ich meine erstellte Datei von Hand im Format txt mit Tabstopps speichere, dann werden Zahlen richtig im Format 1.000.000,00 in die txt-Datei geschrieben.
b) Wenn ich das Makro laufen lasse, dann werden die Zahlen im amerikanischen Format inkl Anführungszeichen in das txt geschrieben ("1,000,000.00").
Woran kann das liegen? ist Application.GetSaveAsFilename("c:\irgendeine\datei.txt, "TXT Files (*.txt), *.txt") ein anderes Format als das txt mit Tabstopp, das man manuell auswählt?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Makro2() Dim fileSaveName As String Dim strPfad As String, FileName As String strPfad = "c:\irgendeine\datei.txt" 'Pfad + Dateiname ChDrive Left(strPfad, 2) 'Login Laufwerk ChDir Left(strPfad, InStrRev(strPfad, "\")) 'Login Ordner FileName = Right(strPfad, Len(strPfad) - InStrRev(strPfad, "\")) 'Dateiname fileSaveName = Application.GetSaveAsFilename(FileName, "Text- File (*.txt), *.txt") 'Dialog mit vorgabe If fileSaveName <> CStr(False) Then 'rückgabe ThisWorkbook.SaveAs FileName:=fileSaveName, FileFormat:=xlText, CreateBackup:=False MsgBox "Datei wurde gespeichert " & fileSaveName Else MsgBox "Speichern wurde abgebrochen!" End If End Sub

Hallo,
, dies mit diesem Makro zu machen.
Nachteil, die Zahlen werden normal dargestellt, also ohne 1000er- Trennzeichen.
Sonst müsste man jede Zelle einzeln durchgehen und noch das Format auslesen.

Option Explicit

Sub Beispiel_Makro()
Dim fileSaveName As String
Dim strPfad As String, FileName As String

strPfad = "E:\1 Forum\Mappe1.txt" 'Pfad + Dateiname 

If Dir(Left(strPfad, 2), vbDirectory) <> "" Then
   ChDrive Left(strPfad, 3) 'Login Laufwerk 
   
   If Dir(Left(strPfad, InStrRev(strPfad, "\")), vbDirectory) <> "" Then
    ChDir Left(strPfad, InStrRev(strPfad, "\")) 'Login Ordner 
   Else
    ChDir Left(strPfad, 3)
   End If
End If

FileName = Right(strPfad, Len(strPfad) - InStrRev(strPfad, "\")) 'Dateiname 
fileSaveName = Application.GetSaveAsFilename(FileName, "Text- File (*.txt), *.txt") 'Dialog mit vorgabe 


If fileSaveName <> CStr(False) Then
  DateiSpeichern fileSaveName, ThisWorkbook.ActiveSheet 'Tabelle angeben 
  MsgBox "Datei wurde gespeichert " & fileSaveName
Else
  MsgBox "Speichern wurde abgebrochen!"
End If

End Sub

Sub DateiSpeichern(sFilename As String, meTab As Worksheet)
Dim Bereich As Range, rZellen As Range
Dim strString As String
Dim F As Integer

Set Bereich = meTab.UsedRange

With Application
    For Each rZellen In Bereich.Rows
     strString = strString & Join(.Transpose(.Transpose(rZellen.Value)), vbTab) & vbCrLf
    Next rZellen
End With
 
  strString = Left(strString, Len(strString) - 1)
  
  F = FreeFile
  Open sFilename For Output As #F
  Print #F, strString
  Close #F

End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread