FileFormat ???

[schauan]

Hallo Charly,

auch wenn jetzt alle aufgegeben haben mal ein Hinweis von mir.

Die Stelle zum Speichern sieht in Deinem code so aus:

Code:

fileSaveName = Application.GetSaveAsFilename( _
   fileFilter:="Text Files (*.xlsm), *.xlsm")
If fileSaveName <> False Then
   MsgBox "Save as " & fileSaveName
End If

Application.GetSaveAsFilename = "C:\Users\Charly\EigeneDokumente\Telekom\ev" + AuswMonat + AuswJahr + ".xlsm" '(fileFilter:="Text Files (*.xlsm), *.xlsm")

Was passiert da? Du rufst zuerst den SaveAs - Dialog auf und weist das Ergebnis eine Variable zu. Dort steht also ein Pfad und ein Dateiname. Dann verwendest Du das aber nicht
Anschließend rufst Du den Dialog nochmal auf, vergibst aber dabei einen festen Namen - ich definiere hier die Variablen ausnahmsweise auch mal als fest - und einen festen Pfad. Das beist sich irgendwo.

Wenn Du den festen Pfad und Namen verwenden willst, dann geht z.B.
Thisworkbook.SaveAs Filename:= "C:\Users\Charly\EigeneDokumente\Telekom\ev" & AuswMonat & AuswJahr & ".xlsm" FileFormat:=xlOpenXMLWorkbookMacroEnabled

In der Art hattest Du unter der Zeile mit den vielen x-en schon mal was. Ich habe bei mir nur ThisWorkbook geschrieben - ich gehe dabei davon aus, dass es um die Datei geht, wo Du gerade mit dem Makro drin bist.

Zum testen kannst Du eventuell auch mal einen neuen Ordner anlegen, z.B. D:\Test, und die Datei dort hinein speichern.
Thisworkbook.SaveAs Filename:= "D:\Test\ev" & AuswMonat & AuswJahr & ".xlsm" FileFormat:=xlOpenXMLWorkbookMacroEnabled

[karomue]

Hallo schauan,

klingt interessant, aber bereits beim Einfügen in das Makro kommt "Fehler beim kompilieren, Syntaxfehler"

Wir haben jetzt soviel miteinander probiert, von den meisten Vorschlägen war ich schon überzeugt, dass sie auch laufen (sollten), nachdem das nicht so ist: Frage wiederholt: mein Excel kaputt?

[schauan]

Hallo Charly,

nein, ich bin kaputt bzw. dran schuld.

Nach ...".xlsm" fehlt ein Komma.

Also so:
Thisworkbook.SaveAs Filename:= "D:\Test\ev" & AuswMonat & AuswJahr & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

Sollte das immer noch nicht gehen, dann probier mal das:

nimm mal bitte eine neue Exceldatei und füge einfach nur das ein:

Code:

Sub Test()
Thisworkbook.SaveAs Filename:= "D:\Test\ev.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

[karomue]

Da kommt in beiden Fällen statt \ev nur eine kryptische Zahl, in letzterem Fall 6AC59000. So geht es also auch nicht - bei mir.

[schauan]

Hallo Charly,

hast Du mal die einfache Variante mit dem Verzeichnis D:\Test ausprobiert?

[Zwergel]

Hi,
ergänzender Hinweis: Das Verzeichnis D:\Test muß es geben, sonst gibts einen Fehler

[karomue]

Hi, @all,

aber das ist ja einfach der Clou, dass das Verzeichnis nicht vorhanden sein sondern erstellt werde soll!

Nein, habe ich nicht probiert.

[Rabe]

aber das ist ja einfach der Clou, dass das Verzeichnis nicht vorhanden sein sondern erstellt werde soll!

das ist doch dann erst der zweite Schritt. Der Vorschlag von André war doch, um erst mal rauszukriegen, ob es überhaupt geht oder grundsätzliche Probleme vorliegen.

Das Erstellen des Speicherverzeichnisses geht auch per VBA, aber nicht so, wie Du es bisher in Deinem Makro drin hast.

[schauan]

Hallo Charly,

aber das ist ja einfach der Clou, dass das Verzeichnis nicht vorhanden sein sondern erstellt werde soll!

das versteh ich jetzt nicht Ich hatte ja in meinem Beitrag schon geschrieben, dass Du das Verzeichnis erstellen sollst. Wenn Du kein Laufwerk D hast, dann kannst Du auch auf C ein Verzeichnis Test erstellen. Musst es dann noch im Code ändern.

[Käpt'n Blaubär]

Hallo André,

aber das ist ja einfach der Clou, dass das Verzeichnis nicht vorhanden sein sondern erstellt werde soll!

... ich habe das so verstanden, daß wenn der Speichercode aufgerufen wird, zunächst eine Abfrage nach dem
Speicherort passieren soll. Über eine Eingabe (UserForm, InputBox, was auch immer) soll der Speicherort
festgelegt werden und wenn es den gewünschten Ort noch nicht gibt, so soll dieser vom Code angelegt werden
um dann letztendlich die Datei dort speichern zu können.

Ich frage aber lieber nochmal beim TE nach, ob ich mit den von mir beschriebenen Vorgängen richtig liege.