Sub Alle_speichern()
Dim i As Integer
Dim DateiName As String
Set n = Range("A29")
Set c = Range("A8")
c.Value = Range(Mid(c.Validation.Formula1, 2)).Cells(1, 1).Value
For i = 1 To n
c.Value = Range(Mid(c.Validation.Formula1, 2)).Cells(i, 1).Value
DateiName = Range("C32") & Range("C31") & ".pdf"
Range("C1:R24").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next i
MsgBox "Alle PDF-Dateien gespeichert!"
End Sub
Hi zusammen,
ich habe ein Dropdown worüber sich unterschiedliche Produkte auswählen lassen. Je nach Auswahl werden andere Ergebnisse dargestellt. Diese würde ich gerne über eine Schleife alle der Reihe nach exportieren. Wenn das Dropdown-Feld aufsteigende Zahlenreihen enthällt funktioniert mein folgender Code auch. Aber sobald das Dropdown-Feld einen Text beinhaltet funktioniert das nicht mehr. Kann mir jemand helfen folgenden Code anzupassen, dass er auch mit "C" als Text-Dropdown funktioniert. Vielen Dank im Voraus für die Hilfe.
|