Office: Dropdown Menu weitersetzen und als PDF speichern

Hallo an Alle,

ich hoffe ihr könnt mir bei meinem Problem helfen.

Ich nutze in einer Excel Datei ein DropDown-Menü (das DropDown-Menu ist ganz simple erstellt (Daten -> Datenüberprüfung) und dient nur dazu um aus einem anderen Tabellelblatt die verschiedenen Zellen auszulesen. Dazu nutze ich SVERWEISE.
(z.b. =SVERWEIS(E3;'Ziel LEM AUB '!A:X;21;FALSCH))
In E3 ist das DropDown. Die SVERWEISE beziehen sich auf den Wert der im DropDown ausgewählt wurde.

Nun meine Idee den Prozess hier etwas zu verbessern.

- Momentan wird jeder Wert aus dem DropDown angewählt, sodass sich die SVERWEISE anpassen und dann wird es als PDF, unter dem Namen der im DropDown angewählt ist, abgespeichert.

- Das ist einer der Werte aus dem DropDwon: DE_MS-AUB_0101 (habe da ungefähr 50 Werte drin)

- Ich benötige also eine Art Schleife bis alle Werte aus dem Dropdown einmal als PDF umgewandelt wurden und mit dem dynamischen Namen gespeichert wurden.

Ich hoffe sehr, das mir jemand helfen kann. Verzweifel hier etwas, weil nur mit Makros läuft es leider nicht ;(.

Vielen Dank im voraus.
Beste Grüße
Andreas

:)

 

Hallo,

reicht dir die Hilfe von Helmut bei Office-Loesung nicht?

Was müssen wir hier anders beantworten als nebenan? Hast du noch wo anders nachgefragt? Wie ist der Diskussionsstand dort?

Viele Grüße
derHöpp

 

Ich wusste nicht, dass man hier untereinander so vernetzt ist.
Das war der Vorschlag im anderen Forum.

For i = 2 to 10
Range("E3") = Cells(i, "X")
ActiveSheet.ExportAsFixedFormat xlTypePDF, Range("E3") & ".pdf"
Next i

Das ist der Bereich für das DropDown -> 'Ziel LEM AUB '!$A$4:$A$33

Ich komme mit der Lösung leider nicht weiter. Vielleicht kann mir hier jemand nettes helfen.

 

Hallo Andi,

Das ist keine sonderlich aussagekräftige Problembeschreibung. Wo liegt denn das Problem? Gibt es Fehlermeldungen? Welche? Welchen Wert hat welche Variable zu der Zeit? Hast du eine Beispieldatei, in der du deinen Fehlversuch darstellen kannst?

Viele Grüße
derHöpp

 

Hallo,

habe eine Dummy-Datei dazu mal erstellt.


https://wetransfer.com/downloads/424...8122159/3ce75a

Hilft euch das?
Vielen Dank und Grüße

 

Hab es mit der Lösung von Helmut hinbekommen


Private Sub CommandButton1_Click()
For i = 29 To 58
Range("E3") = Cells(i, "A")
ChDir "U:ProzessautomatisierungPrämienblätterMS"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("e3") & ".pdf"
Next i

End Sub


Danke *Smilie

http://www.office-loesung.de/p/viewt...50209#p3250209