ind. Tabellenblatt .pdf Erstellung

Hallo zusammen,
ich bin mal wieder an ein Problem geraten, wo ich eure Unterstützung benötige. Ich habe eine Excelmappe (siehe Beispiel), in welcher es das Blatt -Namen- und -Vorlage- gibt.
Ein aktuelles Makro (siehe Anlage) kopiert mir das Tabellenblatt -Vorlage- und setzt mir die Nummer aus dem Tabellenblatt -Namen- in Zelle E5 des kopierten -Vorlagen- Blattes. Dies wird so lange wederholt, wie es Nummern gibt.
https://www.herber.de/bbs/user/141688.xlsm
Anstelle der Erstellung neuer Tabellenblätter, da dies in der Live Version um die 500 sind, möchte ich einfach jeweils .pdf erstellen und diese auf einem individuellen Pfad speichern lassen. Die .pdf sollen benannt werden, nach der in Spalte Dateinamen lautenden Parameter "xxx_123", usw. Vielen lieben Dank euch!
Könnt ihr mir hier behilflich sein.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Erstellung_Tabellenblaetter() Const MyPath = "C:\Development\" Dim LastRow, i, sht As Worksheet Dim MyDir As String With Sheets("NAME") LastRow = .Cells(Rows.Count, "G").End(xlUp).Row For i = 7 To LastRow On Error Resume Next Set sht = Sheets(.Range("G" & i).Value) If Err.Number > 0 Then Sheets("VORLAGE").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = .Range("H" & i) ActiveSheet.Range("E5") = .Range("G" & i) MyDir = MyPath & ActiveSheet.Name & "\" MkDir (MyDir) ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=MyDir & ActiveSheet.Name End If Next End With End Sub

Hallo,
wie kann ich jedoch einen individuellen Pfad in deinem Code noch berücksichtigen, als Beispiel diesen: "C:\Users\marcel\Desktop\Neuer Ordner", bzw. würde dieser idealerwesie in Zelle "A1" im Tabellenblatt -Name- stehen, besten Dank.


Sub PDFDaten_Erstellen()
Dim N As Integer
Dim StrPath As String
Dim WS As Worksheet
Dim Wk As Worksheet
Application.ScreenUpdating = False
Set WS = Worksheets("Name")
With Worksheets("VORLAGE")
.Activate
For N = 7 To WS.Cells(Rows.Count, 7).End(xlUp).Row
.Range("E5").Value = WS.Cells(N, 7).Value
PrintToPDF WS.Cells(N, 8).Value, ActiveWorkbook.Path
Next
End With
Application.ScreenUpdating = True
End Sub
Sub PrintToPDF(sPDFName As String, sPDFPath As String)
If Right(sPDFPath, 1)  "\" Then sPDFPath = sPDFPath & "\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
sPDFPath & sPDFName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True,  _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

LG Marcel

Beliebteste Forumthreads (12 Monate)

ind. Tabellenblatt .pdf Erstellung

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread