Office: (Office 365) Drucken/Speichern(auch als PDF)

so jetzt verzweifle ich.
Habe heute das ganze mal im Real Modus getestet und es klappt, nicht.
Ich habe also über onedrive die Vorlage geöffnet, alle Felder ausgefüllt und auf speichern gedrückt.
Das Fenster "speichern unter" geht auch auf der richtige Dateiname steht auch darin.
Habe dann den Speicherort gewählt und gespeichert.
Und was passiert: Fenster schließt aber keine neue Arbeitsmappe wird am Speicherort erstellt.
Mein Code

Code:

Sub SaveAs()
If Worksheets("Bereitschaft").Range("A5").Value = "" Or _
   Worksheets("Bereitschaft").Range("K9").Value = "" Or _
   Worksheets("Bereitschaft").Range("a19").Value = "" Then
 
 MsgBox "Bitte Pflichtfelder ausfüllen"
Else
MsgBox "Dateiname nicht Ändern!", vbExclamation
dateiName = "Bereitschaft_" _
& Range("A5") & "_" & Range("K9") & "_" & Format(Range("O9"), "MMM yy")
Name = Application.GetSaveAsFilename(InitialFileName:=dateiName, FileFilter:="xlsm files, *.xlsm", Title:="Datei Speichern")
End If
End Sub

Übersehe ich eine Fehler den an dem Rechner an dem ich die Datei erstellt habe funktioniert es komischerweise.
Konnte die Vorlage nur als xlsm hochladen Originaldatei ist xltm
Gruß
Martin
P.S. habe alle Makros aktiviert

 

Hi,

hast du dir mal die Hilfe zu Application.GetSaveAsFilename angeschaut? Einfach den Cursor auf oder direkt hinter das Wort stellen und F1 drücken. Und was findet man dort als ersten Satz?

Die blaue Hervorhebung ist von mir. Und diesen Sachverhalt habe ich auch gleich am Anfang mitgeteilt.

Also. Denk nochmals scharf darüber nach, was in deinem Code wohl noch fehlen könnte! Richtig! Es wird nirgends gespeichert.

Du erhältst in der Variablen Name das zurück, was der Nutzer ausgewählt hat. Das solltest du dann auch verwenden und damit speichern. Außerdem kannst du dann auch gleich die MsgBox weg lassen und den zurückgegeben Namen so aufbereiten, dass dein gewünschter Dateiname entsteht.
Ungetestet könnte das so aussehen:

Code:

...
Else
    DateiName = "Bereitschaft_" & Range("A5") & "_" & Range("K9") & "_" & Format(Range("O9"), "MMM yy")
    Name = Application.GetSaveAsFilename(InitialFileName:=dateiName, FileFilter:="xlsm files, *.xlsm", Title:="Datei Speichern")
    Name = Left(Name, InStrRev(Name, "\")) & DateiName
    ThisWorkbook.SaveAs Name
End If
...

 

Hallo Helmut,
danke für deine Antwort.
Asche auf mein Haupt.

Habe ich gelesen aber wohl nicht verstanden wie man sieht
Habe jetzt dein Code eingefügt.
und wieder: am Ersteller Rechner funktioniert es.
Habe dann mal mit einem anderen Rechner probiert, dann bekomme ich folgende Meldung


und schon wieder ratlos.

Verstehe ich auch nicht. Den Dateiname konnte ich weiterhin beim Dialogfenster "speichern unter" ändern, deshalb die MsgBox.
Mein Gott VBA ist ja so komplex.
Ich kann nur hoffen das es immer so geduldige und erfahrene User geben wird.
Gruß
Martin

 

Hi,

die Meldung besagt, dass du versuchst unter einem Dateiformat zu speichern, das keine Makros unterstützt, z.B. als xlsx. Gib bei SaveAs einfach noch das Dateiformat mit an (F1 hilft hier weiter!).

Und das mit der MsgBox: wenn du, wie bei mir gezeigt, den Namen nach dem Dialog wieder durch den gewünschten Namen ersetzt und nur den Pfad übernimmst ist es egal, was der Nutzer angibt.
Zur Erklärung der Zeile: InStrRev sucht den letzten Backslash, also das Ende des Pfades. Left lässt alles links davon stehen (inklusive Backslash) und dann wird der Dateiname angehängt.

 

Hallo Helmut,
und nochmal danke. Deine Infos trugen jetzt Früchte.
Es funktioniert. jetzt hoffe das es so bleib.
Ich merke das ich so gut wie keine Ahnung von VBA habe immer wieder sehe/lese ich neue Befehle und weiß eigentlich nicht was sie bewirken.
Das mit F1 werde ich mir aber merken um eventuell darüber mir auch schon mal Hilfe zu bekommen.
Gruß
Martin