Gruppe
Ereignis
Bereich
BeforeDoubleClick
Thema
Bei Doppelklick AcrobatReader mit Datei aufrufen
Problem
Aus Doppelklick auf Zelle B2 soll Acrobat Reader mit der in Zelle B2 genannten Datei aufgerufen werden. Die Routine soll auch in Excel 7.0 funktionieren.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
StandardModule: basMain
Sub auto_open()
ActiveSheet.OnDoubleClick = "CallReader"
End Sub
Sub auto_close()
ActiveSheet.OnDoubleClick = ""
End Sub
Sub CallReader()
If ActiveCell.Address <> "$B$2" Then Exit Sub
If Dir(Range("B1").Value) = "" Or Dir(Range("B2").Value) = "" Then
Beep
MsgBox "Bitte die Pfade und Dateinamen überprüfen!"
Exit Sub
End If
Shell Chr(34) & Range("B1").Value & Chr(34) & _
Chr(34) & Range("B2").Value & Chr(34), vbNormalFocus
End Sub