Hallo ich würde gerne meine Datei drucken, speichern unter (Name sollte das Datum sein) B1 beinhaltet bei mir =JETZT()
und dann sollte sich das Dokument schliessen, das alles per Makro bzw Button klick.
Aber es bleibt irgendwie hängen (er druckt und will speichern aber ohne Datum)
Hier mal mein Code:
Sub druckenalspdf()
'
' druckenalspdf Makro
' datei als pdf
'
'
Sheets("Anwesende Monroe Park").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
If ThisWorkbook.Name <> Range("B1") & ".xlsm" Then
Speichern_unter
Exit Sub
End If
With ThisWorkbook
.Save
.Close
End With
End Sub
Sub Speichern_unter()
Dim D_Name As Variant
D_Name = Application.GetSaveAsFilename([B1], "Microsoft Excel-Arbeitsmappe (*.xlsm), *xlsm")
If D_Name = False Or D_Name = "" Then Exit Sub
ActiveWorkbook.SaveAs D_Name
End Sub
Hoffe jemand weis rat, danke!