Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Pfad = "HD:Users:frantisekhlavacocuments:GSDrojektDF:Anlässe:"
Set Rng = Range("H1:L34")
Dies habe ich bereits einmal geschrieben:
"ich habe keine Ahnung wie man dies macht, im 2-Thred meine ich, habe ich das Ganze kopiert."
Ich habe es nicht geschafft den Code aus den VB-Script-Editor so darzustellen wie Du dies gerne hättest...
Pfad = "HD:Users:frantisekhlavac:Documents:GSD:projekt:pDF:Anlässe:"
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
Sub anlspei()
Application.ScreenUpdating = False
Pfad = "HD:Users:frantisekhlavac:Documents:GSD:Projekt:PDF:Anlässe:"
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