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

Hallo zusammen,
da bin ich mal wieder.
Mein problem ist folgendes.
Mein Tb ist eine Vorlage. Jeder Ma füllt diese aus und soll den Speicherort selbst wählen. Nur den Dateiname wird vorgegeben.

Code:

Sub SaveAs()
If Worksheets("Bereitschaft").Range("A5").Value = "" Or _
   Worksheets("Bereitschaft").Range("G9").Value = "" Or _
   Worksheets("Bereitschaft").Range("a19").Value = "" Then
 
 MsgBox "Bitte Pflichtfelder ausfüllen"
Else
MsgBox "Dateiname nicht Ändern!", vbExclamation
Application.Dialogs(xlDialogSaveAs).Show "Bereitschaft_" _
& Range("A5") & "_" & Range("G9") & "_" & Format(Range("O9"), "MMM yy") & ".xlsm"
End If
 
 
End Sub

Leider kann man den Dateiname im Dialogfester "Speichern unter" ,Ändern . Kann man dieses sperren oder so?
Nun möchte ich eine zweiten Button (PW geschützt)erstellen mit dem ich ein PDF Erstelle und auch die Tb gleich ausdrucke. Der Dateiname soll unverändert bleiben aber der Speicherort will ich auch selbst auswählen.
Danke schon mal für die Hilfe
Gruß
Martin

 

Hi,

verwende Statt Application.Dialogs() in diesem Fall Application.GetSaveAsFilename und überschreibe dann vor dem Speichern den Dateinamen im zurückgegebenen String.

 

Hallo Helmut,
danke für die Antwort.
Beim nochmaligem durchlesen habe ich festgestellt das ich mich etwas ungeschickt ausgedrückt habe
Der zweite Button ist schon auf der Vorlage diesen sollen die Ma nicht nutzen können . Deshalb mit PW.
Die Ma schicken, oder liegen auf einem Ordner in One drive die ausgefüllte Datei. Ich muss die Dateien dann weiterverarbeiten. Deshalb will ich sie dann einmal als PDF speichern (Gleichem Dateiname) und auch ausdrucken. Ich hoffe man versteht das so besser.
Gruß
Martin

 

Und wo ist das Problem? GetSaveAsFilename ruft den SaveAs-Dialog auf ohne zu speichern. Du bekommst einen String zurück, der den ausgewählten Pfad und Dateinamen beinhaltet. Wenn du nun den Dateinamen abtrennst, bleibt der Pfad übrig. Das ist doch genau das, was du willst. Damit kannst du dann machen, was du willst: eine PDF erzeugen, eine xlsm speichern, oder das gesamte Verzeichnis löschen.

 

Hallo Helmut,
es hat zwar etwas gedauert um deinen Hinweis umzusetzen aber nach weiteren Recherchen habe ich es hin bekommen. Vielleicht nicht so elegant wie ihr Profis aber für mich ist es so ausreichend.
Für die Nachwelt:

Code:

Private Sub CommandButton1_Click()

    pdfDateiName = Application.Substitute(ActiveWorkbook.Name, ".xlsm", "") & ".pdf"
    pdfname = Application.GetSaveAsFilename(InitialFileName:=pdfDateiName, FileFilter:="PDF files, *.pdf", Title:="PDF speichern")
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfDateiName, _
        Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Danke
Gruß
Martin

 

Hallo nochmal,
habe gerade was festgestellt.
Wie oben ja schon geschrieben soll meine Tb aus Vorlage dienen. Bei Testen viel mir folgendes aufgefallen.
Kurze Erklärung:
Die TB liegt auf dem onedrive Server und wie oben auch schon geschrieben greifen die Ma darauf zu.

Wenn nun aber die Funktion Automatisches Speichern Aktiviert ist, werden die letzen Daten auf der Vorlage auch gespeichert.
Wie kann ich das machen das die Vorlage immer leer bleibt.
Automatisches Speicher per VBA abschalten?
Eine Kopie erstellen? aber wie?
Oder eine ganz andere Idee.
Was mir Wichtig ist, das die MA weiterhin ihren Speicherort weiterhin selbst wählen können.
Ich hoffe ich konnte mich verständlich ausdrücken.
Gruß
Martin

 

Hi,

speichere deine "Vorlage" in dem Format, das dafür vorgesehen ist, nämlich als *.xltm-Dateii

 

Hallo Helmut,
danke für deine Antwort.
Weiß zwar nicht den Unterschied von *xlsm und *xltm aber ok.
Leider funktioniert jetzt der SaveAs() code, siehe oben, nicht mehr.
Das Dialogfenster "speichern unter" öffnet sich aber der Dateiname wird nicht übernommen.
Oder muss ich Application.GetSaveAsFilename generell nehmen.
Danke für weitere Hilfe
Gruß
Martin

 

Nun ja, eine xlm-Datei ist nun mal eine Vorlagendatei mit Makros. Wenn du die auf machst, dann ist das so, wie wenn du in Excel eine neue Datei erstellst. Die Vorlagendatei hat keinen echten Namen (nur Mappe1 oder Mappe2 oder...) und wenn du einfach nur speicherst, dann wird das vorgeschlagen. Wenn du GetSaveAsFilename verwendest, dann kannst du doch einen Namen vorgeben.

 

Hallo Helmut,
sorry das ich mich erst jetzt melde. War viel zu tun.
Habe es jetzt hin bekommen. Ich hoffe es läuft im Alltag genauso reibungslos wie ich es getestet habe.
Eine Frage habe ich doch noch.
Ich schließe die Vorlage mit

Code:

ThisWorkbook.Close SaveChanges:=False

Wie kann ich nun die neue Arbeitsmappe (mit Daten) zur weiteren Bearbeitung gleich öffnen?
Gruß
Martin

 

Hi Martin,

wenn du die Datei gleich wieder öffnen willst, wieso dann zuerst schließen?

 

Hallo Helmut,
nur die Vorlage soll geschlossen werden.
Die neue Arbeitsmappe die der Ma speichert soll nach dem Speichern geöffnet werden/bleiben.
Gruß
Martin

 

Häh? das ist doch der Sinn einer Vorlage. Ausfüllen, speichern. Es wird automatisch unter einem anderen Namen gespeichert. Wird die Vorlage“he das nächste mal benötigt, einfach erneut öffnen.

 

Hallo Helmut,
alles richtig
Aber ich möchte die Arbeitsmappe mit dem neuem Namen gleich öffnen.
Ich weiß zwar nicht ob es in der Praxis benötig wird aber ich kenne meine MA.
Gruß
Martin

 

In dem Moment, in dem du die Mappe speicherst hat sie doch schon den Namen. Du brauchst sie nicht zu schließen und wieder zu öffnen!