Speichern als PDF
21.06.2014 12:02:38
Rolf
ich konnte hier im Forum schon manch guten Typ holen. Aber nun stehe ich auf dem Schlauch und komme nicht weiter.
Ich möchte eine Excel Blatt mit Zellbezügen als PDF speichern.
hier mein entsprechender Code
Private Sub formSpeichern_Click()
strDateiname1 = Range("a2")
'Besucher
strDateiname2 = Range("n2")
'Datum
strDateiname3 = Range("m2")
'Woche
strDateiname4 = Range("h2")
'Loge
Dateiname = Trim(Application.InputBox(prompt:="Bitte Tages Datum hier eintragen und bestä _
tigen eingeben:"))
Select Case Dateiname
Case "", False
ActiveWorkbook.Close SaveChanges:=False
Case Else
On Error GoTo NameUngueltig
ThisWorkbook.SaveAs Filename:="C:\Users\Rolf\Desktop\test\" & strDateiname1 & "_" & _
strDateiname2 & "_" & "KW" & "_" & strDateiname3 & "_" & strDateiname4 & ".pdf"
ThisWorkbook.SaveAs Filename:="C:\Users\Rolf\Desktop\test\" & strDateiname1 & "_" & _
strDateiname2 & "_" & "KW" & "_" & strDateiname3 & "_" & strDateiname4 & ".xls"
ThisWorkbook.SaveAs Filename:="C:\Users\Rolf\Desktop\test\" & strDateiname1 & "_" & _
strDateiname2 & "_" & "KW" & "_" & strDateiname3 & "_" & strDateiname4 & ".xlsm"
End Select
Application.Quit
Exit Sub
NameUngueltig:
MsgBox "Der Dateiname enthält ungültige Zeichen!" '
End Sub
es speichert alles korrekt, nur bei dem PDF habe ich ein Problem ich bekomme immer eine Fehler Meldung siehe Uploadfür eure Mithilfe zum voraus recht herzlichen Dank