Speichern einer Tabelle durch Button-Klick

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Beliebteste Forumthreads (12 Monate)

Speichern einer Tabelle durch Button-Klick

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread