Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aufruf von Textdateien protokollieren

Gruppe

Grafikimport

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.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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