Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei Doppelklick Ordner im Explorer öffnen

Gruppe

BeforeDoubleClick

Problem

Wie kann ich bei Doppelklick auf eine Zelle den Explorer mit dem in der Zelle stehenden Verzeichnis öffnen lassen?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle2

Private Sub Worksheet_BeforeDoubleClick( _
   ByVal Target As Range, Cancel As Boolean)
   If Target.Address <> "$A$1" Then Exit Sub
   Cancel = True
   Shell "explorer " & Target.Value, vbMaximizedFocus
End Sub