Speichern einer Tabelle durch Button-Klick

Bernd · 2018-06-25T14:33:57+00:00

Hallo, Ich bitte um Hilfe, denn ich muss folgendes Problem lösen, weiß aber nicht, wie: Ich benötige auf dem Tabellenblatt einen Button, mit dem man eine sich ebenfalls dort befindliche Tabelle als .pdf-Datei abspeichern kann. Die Tabelle befindet sich auf der gleichen Tabellenseite, wie der Button. Sie besteht aus der Überschrift (im Namensmanager "Kopf" genannt) und der eigentlichen Tabelle (im Namensmanager "Tabelle" genannt). Als pdf gespeichert werden soll nur der in der Mustertabelle umrandete Bereich. Der Tabellenbereich kann von Tabelle zu Tabelle zeilen- und spaltenmäßig variieren. Der Name der .pdf-Datei soll aus dem Inhalt der 1. Zeile des gebildet werden. Eine Mustertabelle kann man hier herunterladen: https://www.herber.de/bbs/user/122305.xlsm Danke schon im Voraus für eure Hilfe Bernd

Hallo Bernd,
hier entsprechende Makros. Es richtet im Blatt die Druckbereich im Seitenlaout entsprechend ein.
Es ist aber "einfacher" wenn die Schaltfläche aus den Formular-Steuerelementen verwendest.
Dann musst du nicht in jedem Tabellenblatt das Makro für die Schaltfläche anlegen.
Du weist der Schaltfläche einmal das Makro zu und kannst dann die Schaltfläche in die anderen Blätter kopieren.
Als Verzeichnis für das Speichern der PDF wird das Verzeichnis der Exceldatei verwendet. Dies muss evtl anpassen und der Variablen strPfad entsprechend ein Verzeichnis zuweisen.
Gruß
Franz

'Code in einem allgemeinen Modul der Datei
Option Explicit
'Dieses Makro per Schaltfläche starten
Public Sub PDF_AktivesBlatt()
Call prcMake_PDF(wks:=ActiveSheet)
End Sub
Public Sub prcMake_PDF(wks As Worksheet)
Dim strDatei As String
Dim strPfad As String
strPfad = ActiveWorkbook.Path
If strPfad = "" Then
MsgBox "Diese Datei muss erst gespeichert werden, damit der Pfad für die PDF-Datei  _
ermittelt werden kann!", vbOKOnly, "Tabelle als PDF-Speichen"
Else
strPfad = strPfad & "\"
strDatei = wks.Cells(1, 1).Text
With wks
.PageSetup.PrintTitleRows = .Range("Kopf").EntireRow.Address
.PageSetup.PrintArea = wks.Range("Tabelle").Address
.ExportAsFixedFormat xlTypePDF, Filename:=strPfad & strDatei & ".pdf", _
ignoreprintareas:=False, OpenafterPublish:=True
End With
End If
End Sub

Nochmals Hallo,
Ich muss dich doch noch einmal behelligen.
Mir ist gerade aufgefallen, dass es ein Problem gibt, wenn die zu erstellende pdf-Datei schon im Pfad vorhanden ist.
Siehst Du eine Möglichkeit, den Dateinamen der zuletzt gespeicherten Datei "Teil1 2018.pdf" noch mit einem Zähler zu versehen?
Die aktuell abzuspeichernde Datei bekommt immer den (hier im Beispiel)Namen "Teil1 2018.pdf".
Die zuletzt abgespeicherte Datei wird in "Teil1 2018-01.pdf" umbenannt, wenn diese schon vorhanden sein sollte, bekommt sie den Namen "Teil1 2018-02.pdf" oder so weiter.
Ich meine: Wenn die pdf-Datei schon 4x vorhanden sein sollte, also "...2018.pdf" sowie "...2018-01.pdf" bis "...2018-03.pdf), dann wird aus der "...2018.pdf" die "...2018-04.pdf" und die aktuelle Speicherung wird wieder "...2018.pdf" ohne Zähler.
Ich weiß nicht, wie ich es richtig beschreiben soll, hoffentlich verstehst Du mich.
Das zweite Problem ist folgendes:
Nach dem Erstellen öffnet sich automatisch Acrobat (oder Acrobat Reader) und zeigt die erstellte Datei an. Vor dem Neuerstellen der Datei sollte die angezeigte Datei zwangsweise geschlossen werden, damit es zu keiner Fehlermeldung kommt.
Ob Du mir hierbei bitte auch helfen kannst?
Das Programm soll wenn es fertig ist, von Personen (bei uns im Verein) ohne große PC-Kenntnisse bedient werden können, deshalb der Aufwand.
Deshalb
Viele Grüße
Bernd

Speichern einer Tabelle durch Button-Klick

Forumthread: Speichern einer Tabelle durch Button-Klick

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial