Application.Dialogs(xlDialogSaveAs)

Liebe Makro Speziallisten,
ich habe folgende Funktion bei der am Ende ein File als text file gespeichert wird. Sollte der User abbrechen drücken, habe ich noch eine Rückkehr Funktion eingebaut.
Mein Problem ist nun, dass das text File nun nicht mit normalen Kommas gespeichert wird, sondern gemäß amerikanischen Systems mit Punkt als Dezimaltrennung.

Sub Speichern_unter_Korrektur_Upload()
'MAKRO KORREKTUR_UPLOAD
'Meldungen unterdrücken
Application.DisplayAlerts = False
Sheets("Info").Select
'Set Pfad
ChDrive "M"
Dim pfad As String
pfad = ThisWorkbook.Path
Dim NeuerName As String
NeuerName = Range("XFD1")
'Autofilter
Sheets("Korrektur upload").Select
Columns("A:K").Select
Selection.AutoFilter Field:=8, Criteria1:="0"
Selection.AutoFilter Field:=9, Criteria1:="0"
'Copy
Columns("A:K").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
'Save as
Application.Dialogs(xlDialogSaveAs).Show NeuerName, xlTextWindows, False = y
'y = Application.Dialogs(xlDialogSaveAs).Show
If y = False Then
ActiveWorkbook.Close:
Sheets("Korrektur upload").Select:
Selection.AutoFilter:
Sheets("Info").Select:
ActiveWorkbook.Save
End If
ActiveWorkbook.Save
'Meldungen anzeigen
Application.DisplayAlerts = True
'Autofilter löschen
Sheets("Korrektur upload").Select
Selection.AutoFilter
Sheets("Info").Select
End Sub

Hat jemand eine Idee, wie man definieren kann, in welchem Zahlensystem das text file abgespeichert wird ?
Danke & LG
Stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim Speichername As String Dim NeuerName As String NeuerName = Range("XFD1") Speichername = Application.GetSaveAsFilename(InitialFileName:=NeuerName, Filefilter:="Textfile , _ *.txt") If Speichername Like "*.txt" Then ActiveWorkbook.SaveAs Filename:=Speichername, FileFormat:=xlTextWindows, Local:=True Else ... hier dann der Code, der laufen soll wenn abbrechen gedrückt wurde ... End If

Hi
nunja, in welcher Zeile bekommst du denn den Fehler?
der VBA-Editor markiert dir doch normalerweise die fehlerhafte Zeile?
hast du den code einfach nur kopiert oder selber geschrieben?
beim kopieren von Codetext aus diesem Forum besteht bei längeren Codezeilen das Problem, dass der Forumseditor dann automatisch einen Zeilenumbruch (die Stelle mit dem Unterstrich) einfügt und diese Einfügung aber nicht kompatibel mit dem dem VBA-Edtior ist.
du müsstest dann diese Umbrüche nachträglich noch eintfernen und hier das

... Filefilter:="Textfile , _
*.txt")

in eine Zeile umschreiben:

... Filefilter:="Textfile ,*.txt")

Ansonsten ist das hier ja nur ein Codeaussschnitt um dir den entspechenden Gedankenanstoss zu geben und kein vollständiger Code, den du einfach nur kopieren kannst.
Wenn ein Fehler bei dir auftritt, müsstest du uns schon zeigen, was du da programmiert hast.
gruß Daniel

Beliebteste Forumthreads (12 Monate)

Application.Dialogs(xlDialogSaveAs)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread