Gruppe
Ereignis
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.
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