Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
1592to1596
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Als PDF speichern mit text aus Textbox
06.12.2017 14:38:19
Philip
Hallo zusammen
Ich möchte das Aktuelle Arbeitsblatt mit einem Button als PDF speichern, das funktioniert soweit auch.
Nur sollte diese PDF Datei nicht immer den selben Namen haben, deshalb möchte ich den Text der in einer Textbox steht als Dateiname verwenden.
Gruss Philip

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Als PDF speichern mit text aus Textbox
06.12.2017 16:06:04
UweD
Wie sieht dein makro aus?
AW: Als PDF speichern mit text aus Textbox
06.12.2017 16:32:09
Hajo_Zi
dem kann man sich nur anschließen.

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
AW: Als PDF speichern mit text aus Textbox
07.12.2017 13:35:59
Philip
Hallo zusammen
mein Code:
Sub PDF_speichern()
ActiveSheet.PageSetup.PrintArea = "$a$1:$s$63"
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\" & Environ("Username") & "\Dropbox\Bestellliste\2017\Alte Bestelllisten" & "\" &  _
"BelagAG" & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "Datei gespeichert", vbOKOnly
End Sub
Ich müsste da irgendwie beim Filname die Textbox rein kriegen.
Vielen Dank für eure Hilfe.
Gruss Philip
Anzeige
AW: Als PDF speichern mit text aus Textbox
07.12.2017 14:08:41
UweD
Hallo
jetzt kommt es darauf an, was für eine Textbox es ist.
Beispiel für eine ActiveX-Steuerelemente Textbox auf Tabelle1
Sub PDF_speichern()
    Dim strDateiname As String
    strDateiname = "C:\Users\" & Environ("Username") & _
        "\Dropbox\Bestellliste\2017\Alte Bestelllisten" & "\" & _
        Sheets("Tabelle1").TextBox1.Value & ".pdf"
    ActiveSheet.PageSetup.PrintArea = "$a$1:$s$63"
    ActiveSheet.PageSetup.FitToPagesWide = 1
    ActiveSheet.PageSetup.Orientation = xlLandscape
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=strDateiname, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
    
    MsgBox "Datei gespeichert", vbOKOnly
End Sub

LG UweD
Anzeige

334 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige