Thema Datum  Von Nutzer Rating
Antwort
Rot VBA pdf erstellen mit tabellenblattname
16.07.2021 15:26:22 ch79
NotSolved
16.07.2021 15:59:38 UweD
NotSolved
26.07.2021 10:44:31 ch79
NotSolved
26.07.2021 11:10:07 Gast57434
NotSolved
26.07.2021 12:06:23 ch79
NotSolved
26.07.2021 17:43:20 Gast76448
NotSolved
26.07.2021 17:46:25 Gast76448
NotSolved
27.07.2021 12:56:30 ch79
NotSolved
27.07.2021 15:24:04 Gast54664
NotSolved
28.07.2021 14:04:43 ch79
NotSolved
28.07.2021 15:20:53 ch79
NotSolved

Ansicht des Beitrags:
Von:
ch79
Datum:
16.07.2021 15:26:22
Views:
86
Rating: Antwort:
  Ja
Thema:
VBA pdf erstellen mit tabellenblattname

Hallo

Wie kann ich mit folgendem Makro den PDF Dateinamen erstellen aus dem Zellwert F20 und dem Tabellenblattnamen?

Irgendwie funktioniert das nicht. Danke für eure Hilfe.

Sub Mail_Senden_mit_PDF1()
 Dim WSh As Worksheet
 Dim sMailtext As String, sSignatur As String
 Dim sDateiName As String, T As String
    
'<<<Tabellenblatt anpassen>>>
 Set WSh = ThisWorkbook.Sheets("A")  'Blatt mit Maildaten
  
 sDateiName = ThisWorkbook.FullName
 sDateiName = Left$(sDateiName, InStrRev(sDateiName, ".")) & "pdf"
 T = ThisWorkbook.Path & "\"
 sDateiName = Replace(sDateiName, T, T)
 
'<<<Tabellenblatt anpassen>>>
 ThisWorkbook.Sheets("A").ExportAsFixedFormat Type:=xlTypePDF, _
     Filename:=sDateiName, Quality:=xlQualityStandard, _
     IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, OpenAfterPublish:=True


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA pdf erstellen mit tabellenblattname
16.07.2021 15:26:22 ch79
NotSolved
16.07.2021 15:59:38 UweD
NotSolved
26.07.2021 10:44:31 ch79
NotSolved
26.07.2021 11:10:07 Gast57434
NotSolved
26.07.2021 12:06:23 ch79
NotSolved
26.07.2021 17:43:20 Gast76448
NotSolved
26.07.2021 17:46:25 Gast76448
NotSolved
27.07.2021 12:56:30 ch79
NotSolved
27.07.2021 15:24:04 Gast54664
NotSolved
28.07.2021 14:04:43 ch79
NotSolved
28.07.2021 15:20:53 ch79
NotSolved