Speichern unter mit Problemen

Mahlzeit zusammen,
ich habe mir ein Speichern unter gesucht/gebastelt. Das Ergebnis ist ganz ok, aber ich bekomme keine Pdf erstellt. Und nun scheitert es mal wieder an dem "Warum?"

Sub Speichern_unter_aufrufen()
Dim Speichern_Unter
Sheets("Tabelle2").Select
ChDir "C:\Users\sicherheitsdienst\Ehrl\Tino Fehringer"
Speichern_Unter = Application.GetSaveAsFilename(InitialFileName:=Range("L51") & "_" & Format( _
Now, "YYYYMMDD") & ".pdf", fileFilter:="PDF, *.pdf")
Sheets("Tabelle1").Select
End Sub

Des Weiteren suche ich noch eine Option wie ich das Datum fürs Speichern um 8 Stunden verschieben kann:
Nachtschicht 22:00 bis 6:00, dann speichern würde bedeuten:
Nachtschicht20161124
besser wäre:
Nachtschicht20161123 (weil beginn am 23.11.)
Ich bin für jede Hilfe Dankbar!
Grüße Tino

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Speichern_unter_aufrufen() Dim Speichern_Unter Dim Pfad As String, Datum As Date Pfad = "C:\Users\sicherheitsdienst\Ehrl\Tino Fehringer\" If Dir(Pfad, vbDirectory) = "" Then MkDir Pfad Datum = Date If Time > CDate("23:59:59") Or Time < CDate("6:00") Then Datum = Datum - 1 End If With Sheets("Tabelle2") If Not Speichern_Unter = Application.GetSaveAsFilename _ (InitialFileName:=Pfad & Range("L51") & "_" & _ Format(Datum, "YYYYMMDD") & ".pdf", fileFilter:="PDF, *.pdf") Then .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Speichern_Unter Else MsgBox "Nichts gespeichert" End If End With End Sub

Sub Speichern_unter_aufrufen() Dim Speichern_Unter Dim Pfad As String, Datum As Date Pfad = "C:\Users\sicherheitsdienst\Ehrl\Tino Fehringer\" If Dir(Pfad, vbDirectory) = "" Then MkDir Pfad Datum = Date If Time > CDate("23:59:59") Or Time < CDate("6:00") Then Datum = Datum - 1 End If With Sheets("Tabelle1") Speichern_Unter = Application.GetSaveAsFilename _ (InitialFileName:=Pfad & .Range("L51") & "_" & _ Format(Datum, "YYYYMMDD") & ".pdf", fileFilter:="PDF, *.pdf") If Speichern_Unter <> "" And Speichern_Unter <> False Then .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Speichern_Unter Else MsgBox "Nichts gespeichert" End If End With End Sub

With Sheets("Tabelle1") .PageSetup.PrintArea = "$A$1:$AL$50" Speichern_Unter = Application.GetSaveAsFilename _ (InitialFileName:=Pfad & .Range("L51") & "_" & _ Format(Datum, "YYYYMMDD") & ".pdf", fileFilter:="PDF, *.pdf")

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread