VBA Dropdown in Verbindung mit einen pdf

Hallo Zusammen, ich habe eine excel Datei mit der Rechnungen erstellt werden sollen. Über ein Dropdown Menü, kann der Rechnungsempfänger ausgewählt werden und die Rechnung erstellt werden. Alles über sverweis verknüpft. Ich habe bereits ein Makro "geschrieben", welche das drucken erleichtert (hier wird über zwei Zellen der Speicherort festgelegt und der Dateiname):


Sub print_pdf()
Dim DateiName As String
DateiName = Range("I7") & "\" & Range("I6") & ".pdf"
Sheets("invoice template GER").ExportAsFixedFormat xlTypePDF, Filename:=DateiName
End Sub

Aktuell muss aber im Dropdown Menü jeder einzelne Empfänger ausgewählt werden, was sehr aufwendig ist. Ist es möglich, dass das der Marko mit erledigt? Vielen Danke und liebe Grüße Anne

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub pdf_Druck_alle_Werte_Dropdown() Dim xRg As Range Dim xCell As Range Dim xRgVList As Range Dim DateiName As String Set xRg = Worksheets("Tabelle1").Range("B9") 'ist das die Zelle mit Deinem Dropdown ? Set xRgVList = Evaluate(xRg.Validation.Formula1) For Each xCell In xRgVList xRg = xCell.Value DateiName = Sheets("Tabelle1").Range("I7") & "\" & xRg & ".pdf" 'Tabellenname anpassen Sheets("invoice template GER").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=DateiName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Next End Sub

Vielen Dank für deine Hilfe. Ich habe jetzt mit einem YouTube Video eine Lösung gefunden:

Sub print_pdf_NL()
'Declare the Variables
Dim ws As Worksheet
Dim rngID As Range
Dim rngListStart As Range
Dim rowsCount As Long
Dim i As Long
Dim DateiName As String
Dim tempPDFFilePath As String
'Stop the screen updating while running
Application.ScreenUpdating = False
'Reference Report Sheet
Set ws = ActiveWorkbook.Sheets("invoice template NL")
'Reference the Customer cell (dropdown)
Set rngID = ws.Range("E12")
'Reference the start of the Customer List
Set rngListStart = ws.Range("I10")
'Count the rows in the Customer List
rowsCount = rngListStart.CurrentRegion.Rows.Count - 1
For i = 1 To rowsCount
    
    'Change the current Customer
    rngID.Value = rngListStart.Offset(i - 1, 0).Value
        
    'Create the PDF
    DateiName = Range("I6") & "\" & Range("I5") & ".pdf"
    
    Sheets("invoice template NL").ExportAsFixedFormat xlTypePDF, _
        Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Next i
'Restart the screen updating
Application.ScreenUpdating = True
End Sub

Beliebteste Forumthreads (12 Monate)

VBA Dropdown in Verbindung mit einen pdf

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Dropdown in Verbindung mit einen pdf

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread