Makro PDF-Datei erstellen + Name/Blätter aus Zelle

Hallo zusammen,
ich habe ein kleines Makro-Problem. Ich möchte einen mühsamen und manuellen Schritt automatisieren. Habe es auch geschafft, nur habe ich die Makros so geschrieben, dass sie unflexibel sind, d.h. wenn sich eine Änderung ergibt, muss das im Makrocode angepasst werden.
Nun ist meine Idee, dass der Makro auf ein Tabellenblatt zugreift, und sich da die Informationen holt. Das heißt, der Makro erstellt eine PDF-Datei auf Knopfdruck. Der zu verwendende Dateiname wird ausgelesen aus einer Zelle und die zu markierenden Tabellenblätter auch. Nachdem er die erste Datei erstellt hat, folgt die nächste... Speicherpfad sollte immer die sein, in dem sich die Excel-Datei befindet.
Somit kann die eine Tabelle namens "Makro" gepflegt werden und der Makrocode funktioniert eigentlich immer...
Hier eine Beispieldatei:
https://www.herber.de/bbs/user/102912.xlsx
Vielen Dank für eure Hilfe!!!
Grüße
Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Chris,
das könnte man evtl. wie folgt lösen.
Die zu speichernde PDF-Variante muss vor dem Start des Makros in Spalte A selektiert werden.
Gruß
Franz

'Zu speichernde PDF Variante wird aus aktiver Zelle in Spalte A ausgelesen
Sub Make_PDF()
Dim wksMakro As Worksheet
Dim strPDF As String
Dim rngVariante As Range
Set rngVariante = ActiveCell
Dim varSheets(), Zelle As Range, intSheet As Integer
Set wksMakro = ActiveSheet
If wksMakro.Name  "Makro" Then
MsgBox "Makro darf nur gestartet werden, wenn Blatt ""Makro"" aktiv ist!", _
vbOKOnly, "Speichern PDF"
Else
'Prüfen, ob PDF-Variante in Spalte A gewählt wurde
If rngVariante.Cells.Count = 1 And rngVariante.Column = 1 And rngVariante  "" Then
Select Case rngVariante.Row
Case Is >= 4
If MsgBox("Variante """ & rngVariante.Text & """ als PDF speichern?", _
vbQuestion + vbOKCancel, "PDF erstellen") = vbOK Then
'Name der PDF-Datei
strPDF = ThisWorkbook.Path & Application.PathSeparator & rngVariante.Text & ".pdf"
'Blattnamen zur Variante in Datenarray schreiben
With wksMakro
For Each Zelle In .Range(rngVariante.Offset(0, 1), .Cells(rngVariante.Row, .Columns. _
Count).End(xlToLeft)).Cells
If Zelle.Text  "" Then
intSheet = intSheet + 1
ReDim Preserve varSheets(1 To intSheet)
varSheets(intSheet) = Zelle.Text
End If
Next
End With
If intSheet > 0 Then
'PDF speichern
ActiveWorkbook.Sheets(varSheets).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=strPDF, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Erase varSheets
End If
Sheets("Makro").Select
End If
Case Else
End Select
Else
MsgBox "Bitte Zelle der zu speichernde Variante in Spalte A vor dem Start des Makros auswä _
hlen!", _
vbOKOnly, "Speichern PDF"
End If
End If
End Sub

Sub Make_PDF_V1() Dim wksMakro As Worksheet Dim strPDF As String Dim rngVariante As Range Dim varSheets(), Zelle As Range, intSheet As Integer, Zeile As Long Set wksMakro = ActiveWorkbook.Worksheets("Makro") ' If MsgBox("PDF-Dateien speichern?", vbQuestion + vbOKCancel, "PDF erstellen") = vbOK Then With wksMakro For Zeile = 4 To .Cells(.Rows.Count, 1).End(xlUp).Row intSheet = 0 Set rngVariante = .Cells(Zeile, 1) 'Name der PDF-Datei strPDF = ThisWorkbook.Path & Application.PathSeparator & rngVariante.Text & ".pdf" 'Blattnamen zur Variante in Datenarray schreiben For Each Zelle In .Range(rngVariante.Offset(0, 1), .Cells(rngVariante.Row, _ .Columns.Count).End(xlToLeft)).Cells If Zelle.Text "" Then intSheet = intSheet + 1 ReDim Preserve varSheets(1 To intSheet) varSheets(intSheet) = Zelle.Text End If Next If intSheet > 0 Then 'PDF speichern ActiveWorkbook.Sheets(varSheets).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=strPDF, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=True Erase varSheets End If Sheets("Makro").Select Next Zeile End With ' End If End Sub

Beliebteste Forumthreads (12 Monate)

Makro PDF-Datei erstellen + Name/Blätter aus Zelle

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

322 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro PDF-Datei erstellen + Name/Blätter aus Zelle

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

322 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread