Excel als PDF Speichern, Textbox als name?
Hallo,
habe in Excel ein Bild eingefügt und ändere immer nur zahlen, der name der Datei soll 2021-R1KI- und dann fortlaufende zahlen von 00 bis 150 sein. Möchte einen "Knopf" haben wo das Dokument als PDF mit in einem Ordner gespeichert wird und der Name die Textbox sein soll. In der Textbox wird dann stehen 2021-R1KI-000 zum Beispiel. Habe schon vieles probiert und auch von anderen übernommen und geändert aber es funktioniert nichts. Entweder speichert es nicht fortlaufend, überschreibt die 1. Datei oder das PDF ist nach dem Speichern beschädigt. Müsste es um die 600 mal speichern und jedes mal auf Speichern, pdf und neuen namen eingeben nervt auch extrem.
Kenne mich leider wenig bis gar nicht in VBA aus und bräuchte dafür ein script. Kennt wer eines?
Bitte und mit freundlichen Grüßen
2 Antworten
'Hier mal das ganze, was bei mir bestens läuft als Copy Paste.
'Natürlich gilt es die Dinge auf deine spezifischen Belannge anzupassen. Ggf NICHT Tabelle1 sondern etwas anderes.
Eine Hilfe in GF kann eigenes Wissen erarbeiten NICHT ersetzen.
Sub test()
Dim tmp
Dim GesamtPfad
tmp = Tabelle1.Shapes("MeinTextFeld").TextFrame2.TextRange.Text
GesamtPfad = "C:\test\" & tmp & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=GesamtPfad, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
Zur Anschauung habe ich auf "Tabelle1" ein Textfeld gesetzt und den Namen "MeinTExtFeld" gegeben.
Dies gehört generell zu den Shapes.
Wenn du nun die Sub Test (oder dann dein MakroNamen) an eine Klick Knopf verknüpfst dann hast du die gewünschte Funktionalität. Ggf den DateiPfad nicht hardcoded, wie im Bsp bauen lassen sondern abhängig von dem Ort der ExcelDatei.
Super probiere ich später vielen dank und wie mache ich das dann nur das bild als pdf gespeichert wird ohne den makro button?
Habe es jetzt so geschrieben und es tut sich nix, nach den 2 Dim kommt tmp = Tabelle.Shapes? Kann das Sonderzeichen nicht lesen