Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Bei Doppelklick AcrobatReader mit Datei aufrufen
Gruppe
BeforeDoubleClick
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