Moin zusammen,
ich habe mal wieder ein Problem. Vielleicht kann jemand helfen?
Sorry für die Ausführlichkeit, aber sonst machts keinen Sinn.
Mit dem folgenden Code möchte ich nach Klick auf eine
Schaltfläche die zugehörige PDF-Datei öffnen:
Option Explicit
Sub Schaltfläche343\_BeiKlick()
Range("e30").Select
Dim rng As Range
For Each rng In Selection.Cells
If Not IsEmpty(rng) Then
If Dir(rng.Value) "" Then
rng.Hyperlinks.Add \_
anchor:=rng, \_
Address:=rng.Value
End If
End If
Next rng
If Dir(Range("e30").Hyperlinks(1).Address) = "" Then
Beep
Dim N As Integer
'MsgBox("Hallo", MsgBoxStyle.Information, "Das steht in der Titelzeile")
Dim Meldung As VbMsgBoxResult
Dim Text1 As String
Dim Text2 As String
Dim Text3 As String
Dim Text4 As String
Dim Text5 As String
Text1 = "Kann PDF-Dateien im Verzeichnis"
Text2 = "c:\daten\Mein\_Verzeichnis"
Text3 = "nicht finden."
Text4 = "..."
Text5 = "------------------------------------------------"
If MsgBox(Text1 & vbLf & Text2 & vbLf & Text3 & vbLf & vbLf & Text4 & vbLf & Text5 & vbLf, vbExclamation + vbOK, "Fehler") = vbOK Then
Range("B34").Select
Exit Sub
End If
Else
Range("e30").Hyperlinks(1).Follow
Range("b34").Select
End If
End Sub
Unter Excel 2000 klappte das auch problemlos.
Nach einem Rechnerwechsel und Update auf Excel 2003 erhalte ich nun
90s nach Klick auf die Schaltfläche die Meldung:
Microsoft Office Excel wartet auf die Beendigung einer OLE-Aktion
in einer anderen Anwendung. --> OK
15-30s später nochmal dieselbe Meldung --> OK
Nach weiteren 15-30s öffnet er dann (endlich) die PDF-Datei
im Adobe-Reader X.
Öffne ich den Reader vor dem Klick auf die Schaltfläche schon, ohne
eine Datei zu öffnen (um den Ladevorgang abzukürzen) kommt nach 60s
die Meldung:
Beim Öffnen dieses Dokuments ist ein Fehler aufgetreten.
Diese Datei kann nicht gefunden werden. --> OK.
Nach Klick auf OK öffnet er dann aber doch die gewünschte PDF-Datei.
Öffne ich auf gleiche Weise eine DWG-Datei (autocad), wird diese
nach ein paar Sekunden problemlos mit ACAD geöffnet.
Hat jemand eine Idee, wie man die Öffnungszeit bei PDFs
verkürzen kann?
Gruß und danke
Rolf