Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Beim Speichern automatisch Tabellenname und aktuel

Beim Speichern automatisch Tabellenname und aktuel
09.06.2014 19:49:48
Alexander

Hallo Liebe Gemeinde,
ich hätte gerne mal wieder ein neues kleines Problem. Ich möchte, das beim Speichern eines Tabellenblattes automatisch den Namen des Blattes, sowie das aktuelle Datum als speichername gesetzt wird.
Leider setzt mir das Programm als Speichername: 41800.
Wo liegt den mein Fehler???
Danke für die Hilfe

Sub Speichern()
Dim pdfName As String
Dim pdfOpenAfterPublish As Boolean
Rem Rückfragen, ob Datei nach dem Erstellen geöffnet werden soll
If MsgBox("Soll die PDF-Datei nach dem Erstellen angezeigt werden?", vbYesNo, "PDF anzeigen?") = _
_
vbYes Then pdfOpenAfterPublish = True
pdfName = Application.GetSaveAsFilename(InitialFileName:=Environ("USERPROFILE") & "\Desktop\" &  _
_
activeworksheet & Format(Now, DD - MM - YY), fileFilter:="PDF-Dateien (*.pdf), *.pdf")
If pdfName = "Falsch" Then Exit Sub
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False,  _
IgnorePrintAreas:=False, _
OpenAfterPublish:=IIf(pdfOpenAfterPublish, True, False)
If MsgBox("Wollen Sie eine weitere Bestellung tätigen?", vbYesNo, "Weitere Bestellung?") =  _
vbYes Then
Call Hauptmenü.Hauptmenü
Else
ThisWorkbook.Saved = True
Application.Quit
End If
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Beim Speichern automatisch Tabellenname und aktuel
09.06.2014 19:52:39
Hajo_Zi
benutze bei Datum Format()

Beim Speichern automatisch das aktuelle Datum ...
09.06.2014 20:05:48
Matthias L
Hallo
Dann stimmt Dein Systemdatum nicht !
Tabelle1

Anzeige

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige