in eine Tabelle werden die Dateien eines Unterverzeichnisses eingelesen. Wie schaffe ich es, per Doppelklick auf eine Zelle die darin angezeigte Datei zu öffnen ? Eine Listbox soll nicht verwendet werden.
Vielen Dank und Grüße
KlausK
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const bereich = "A1:A20" 'hier stehen die Dateinamen
If Not Intersect(Target, Range(bereich)) Is Nothing Then
Cancel = True
On Error GoTo Fehler
Workbooks.Open Filename:=Target.Value
End If
Exit Sub
Fehler:
MsgBox Error(Err)
End Sub