Thema Datum  Von Nutzer Rating
Antwort
Rot EXCEL VBA
02.05.2020 18:10:15 A350
Solved
02.05.2020 18:29:58 Ruin Zargarzoda
NotSolved
02.05.2020 19:40:13 Werner
*****
Solved

Ansicht des Beitrags:
Von:
A350		 Datum:
02.05.2020 18:10:15		 Views:
878		 Rating:
     
Antwort:
 Nein
Thema:
EXCEL VBA
Hallo,
 
ich habe 5 Tabellenblätter. Mit diesem Code erzeuge ich eine einzige PDF-Datei.
Den Dateinamen übernimmt er aus der Tabelle 1 Zelle K3.
Nur möchte ich noch das er das Datum, was sich in der Zelle K4 befindet, auch dem Dateinamen hinzufügt.
Zusätzlich möchte ich zb in der Tabelle 1 in irgendeiner Zelle einen Pfad angeben, wohin er die erzeugte PDF-Datei abspeichert.
 
Wie muss ich den unten stehenden Code verändern?
 
Danke
 

Sub PDF()
Sheets(Array("Tabelle 2", "Tabelle 3", "Tabelle 4", "Tabelle 5")).Select
ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=Sheets("Tabelle 1").Range("K3").Value, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
    
    Sheets("Tabelle 2").Select  'Gruppierung wieder aufheben

End Sub

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 EXCEL VBA
02.05.2020 18:10:15 A350
Solved
02.05.2020 18:29:58 Ruin Zargarzoda
NotSolved
02.05.2020 19:40:13 Werner
*****
Solved