Makro nächster Datensatz und per PDF speichern

Hallo,
ich habe ein Tabellenblatt, welches über eine eindeutige Nummer in Zelle B3 Daten aus einer anderen Quelle bezieht. Die Nummer in Zelle B3 kann aus einer Liste ausgewählt werden.
Nun möchte ich, dass über Makro folgendes passiert:
Jede der bspw. 20 Nummern aus B3 soll nacheinander aufgerufen werden und die jeweils neu ausgelesenen Daten als PDF Datei mit den Namen "Neu + Nummer aus B3" gespeichert werden. Anschließend kommt der nächste Datensatz, usw.
Am Ende will ich also 20 PDF Dateien mit den jeweilig ausgelesenen Daten haben.
Habe mir schon diverse Codes aus den Foren angesehen und versucht diese zu kombinieren, leider bisher ohne Erfolg. Deshalb hoffe ich auf Eure Unterstützung!
Danke.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Dustbin,
hier ein entsprechendes Makro, dass du noch an deine Anforderungen anpassen musst.
LG
Franz

Sub MakePDFs()
Dim wksB3_Werte As Worksheet
Dim wksPDF As Worksheet
Dim Zeile As Long, StatusCalc As Long
Dim strPdf_Datei As String
Dim strPfad As String
If MsgBox("PDF-Datein für Nummern in Liste erzeugen?", vbQuestion + vbOKCancel, _
"PDF-Dateien erzeugen") = vbCancel Then Exit Sub
'Makrobremsen lösen
With Application
.ScreenUpdating = False
StatusCalc = .Calculation
.Calculation = xlCalculationManual
End With
'Verzeichnis für PDF-Dateien
strPfad = "C:\Users\Public\Test\PDF\"                      'anpassen !!!
'Tabellenblatt mit der Liste der Werte für Zelle B3
Set wksB3_Werte = ActiveWorkbook.Worksheets("Tabelle1") 'anpassen !!!
'Tabellenblatt das als PDF gespeichert werden soll
Set wksPDF = ActiveWorkbook.Worksheets("Tabelle2")      'anpassen !!!
With wksB3_Werte
For Zeile = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row 'Startzeile ggf. anpassen
wksPDF.Range("B3") = .Cells(Zeile, 1).Value
wksPDF.Calculate
strPdf_Datei = "Neu " & .Cells(Zeile, 1).Text & ".pdf"
'            strPdf_Datei = "Neu " & Format(.Cells(Zeile, 1).Value, "0000") & ".pdf"
wksPDF.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=strPfad & strPdf_Datei, _
Quality:=xlQualityStandard, _
Ignoreprintareas:=True, _
Openafterpublish:=False
Next
End With
'Makrobremsen zurücksetzen
With Application
.ScreenUpdating = True
.Calculation = StatusCalc
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Makro nächster Datensatz und per PDF speichern

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro nächster Datensatz und per PDF speichern

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

304 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