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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen