Gruppe
Extern
Problem
Bei Doppelklick auf die Zellen in A1:A3 werden die dort genannten Dateien im Explorer aufgerufen. Der Vorgang wird in einer Log-Datei dokumentiert.
ClassModule: Tabelle1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Dir(Target.Value) = "" Then Exit Sub
Close
Open Application.DefaultFilePath & "\hyp.log" For Append As #1
Print #1, Target.Value & vbTab & Now
Close
Shell "explorer " & Target.Value, vbMaximizedFocus
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Close
Open Application.DefaultFilePath & "\hyp.log" For Append As #1
Print #1, Target.Address & vbTab & Now
Close
End Sub
StandardModule: Modul1
Sub WriteLog()
End Sub