Thema Datum  Von Nutzer Rating
Antwort
Rot PDF Dateinname vergeben
 25.01.2018 12:09:58 Stephan
NotSolved

Ansicht des Beitrags:
Von:
Stephan		 Datum:
25.01.2018 12:09:58		 Views:
911		 Rating:
     
Antwort:
  Ja
Thema:
PDF Dateinname vergeben		 
Hallo,
ich habe folgenden Code erstellt um mit eine Klick auf den CommandButton1 die Maske "PDF speichern" zu öffnen. Ich möchte nun aber noch, das der Dateiname aus zwei Zellen (A1 und I7) zusammengesetzt wird und dieser automatisch als 
Dateiname in der Maske "PDF speichern" hinterlegt wird. Ich bekomme das einfach nicht hin. Wer könnte mir da helfen ? 


Hier der bis jetzt gebastelte Code: 

Private Sub CommandButton1_Click()

Dim strTitel As String
Dim strFilter As String
Dim varRetVal As Variant

strTitel = "PDF Speichern"

strFilter = "PDF-Dateien (*.pdf),*.pdf"
ChDir "\"
ChDrive "C:\"
ChDir "C:\"


    varRetVal = Application.GetSaveAsFilename(, strFilter, , strTitel)
   

    If varRetVal = False Then Exit Sub
    

  ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=varRetVal, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True


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 PDF Dateinname vergeben
 25.01.2018 12:09:58 Stephan
NotSolved