Microsoft Excel

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