VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei Doppelklick AcrobatReader mit Datei aufrufen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und BeforeDoubleClick