Ich versuche es aus einer String-Variablen eine Pdf-Datei zu bilden. Den richtigen Pdf-Namen kann ich mit der MsgBox darstellen. Bei der Speicherung wir der Pdf-Namen mit dem Blattnamen überschrieben.Es sieht so aus:
MsgBox zeigt richtig: "Probe_09.03.2017.pdf"
Gespeichert wird: "Probe_09 Numerisch.pdf" 'Numerisch ist der Name des Arbeitsblattes"
Kann ich irgendwie den Arbeitsblattnamen unterdrücken?
Wir der Code:
' in einem anderen Modul definiert
Option Explicit
Public sTxt As String
Public dTxt As String
Public sName As String
Public sLeer As String
Sub probspei()
Application.ScreenUpdating = False
Pfad = "HD:Users:frantisekhlavac:Documents:GSD:Projekt:PDF:Proben:"
Set Rng = Range("H1:L34")
'Dies ist der Name der PDF-Datei als String
sName = sTxt & "_" & dTxt & ".pdf"
'MsgBox sName
'ActiveSheet.PageSetup.PrintArea = Rng
Range("H1:L33").Select
ActiveSheet.PageSetup.PrintArea = "$H$1:$L$33"
Range("H1:L33").Select
'** PDF erzeugen
ActiveWorkbook.SaveAs Filename:=Pfad & sName, _
FileFormat:=xlPDF, PublishOption:=xlSelection
If sLeer "" Then
Clear
End If
Range("A46").Select
End Sub