Mehrere PDF öffnen und hintereinander anzeigen
15.05.2006 00:10:15
Sophie
Ich sitze nun schon ewig hier und zerbreche mir mein Köpfchen. Vielleicht fällt euch was nettes ein. Kurz zu meinem Vorhaben: Ich habe 6 verschiedene Felder B10-B16. In den Zellen B10-B16 stehen Werte, welche abgefragt werden sollen. Wenn der Wert B10 kleiner als 2 ist dann soll er eine Pdf datei Namens B10.pdf öffnen, gleichzeitig B11 prüfen und gegebenenfalls auch B11.pdf öffnen. Das ist noch nich sooo schlimm, aber ich will danach mein Ergebniss ausdrucken und zwar alle auf einmal. Also muss B11.pdf (wenn geöffnet) nach B10.pdf (wenn geöffnet)stehen. Ich schreib mal was ich schon hab =)
Sub öffnen1()
If Range("B10") > 2 Then
Sheets("Ausgabe").Select
Range("A1").Select
ActiveSheet.OLEObjects.Add(Filename:="D:\B10.pdf", Link:=False, DisplayAsIcon:=False).Select
Else
Call öffnen2
End If
End Sub