Verknüpfung, die eine Datei mit dem gleichen Namen

Computer: Software & Programmierung Office Software
1

Hallo liebes Forum

Ich hätte eine Frage gemäß Verknüpfungen bei Excel 2007:

Ich habe eine Excel-Tabelle mit Informationen von Dokumenten. Es gibt, unter anderen Spalten (Daum, erstellt von, Dokumententyp, usw) eine Spalte „Dateiname“. Unter dieser Spalte wird der genaue Dateiname jedes Dokumentes eingetragen (z.B. Dokument01.pdf, Dokumente02.xls). Alle Dokumente, also die Dateien selbst (mit verschiedene Formate: pdf, xls(x), doc(x), ppt(x),…) sind unter einem Ordner „Dokumente“ abgelegt.

Ich möchte aber jetzt dass, wenn ich auf den Dateinamen anklicke, das Dokument geöffnet wird. Das geht sehr einfach, in dem man auf die Zelle anklickt, zu „Einfügen\Hyperlink“ geht, und die Datei wählt die nach Anklicken geöffnet werden soll.

Ich habe aber hunderten von Dokumenten in meine Excel-Datei eingetragen (bzw. im Ordner „Dokumente“ abgelegt) und wollte deswegen wissen, ob es einen Befehl bei Excel gibt, der folgendes Kommando gibt, wenn man auf eine Zelle anklickt:

„Geh zum Unterordner „Dokumente“ und öffne da die Datei, die genau so heißt wie der Name, dass in dieser Zelle eingetragen wurde!“

Meine Excel-Datei ist unter „C:\Projekt“ gespeichert und die Dokumenten sind unter „C:\Projekt\Dokumente“ gespeichert.

Meint Ihr, dass so was geht?

Ich freue mich auf jeden Vorschlag!

Schöne Grüße,

Carlos

2

Hallo,

Dieses Makro listet die Dateien aus einem Verzeichnis +
Unterverzeichnis auf und erstellt Hyperlinks zu diesen Dateien

Sub Schaltfläche1\_BeiKlick()
 Dim fso As Object
 Dim folder As Object
 Dim subfolder As Object
 Dim Zeile As Integer

 _Const Ordner = "D:\Eigene Dateien\"  
 Const Spalte = "A"_  
 Zeile = 1

 Set fso = CreateObject("Scripting.FileSystemObject")
 Set folder = fso.getfolder(Ordner)
 Set subfolder = folder.subfolders

 For Each subfolder In folder.subfolders
 For Each file In subfolder.Files
 Range(Spalte & Zeile).FormulaLocal = \_
 "=hyperlink(""" & file & """;""" & file.Name & """)"
 Zeile = Zeile + 1
 Next
 Next
End Sub

Den kursiven Teil evtl. anpassen.

Soll der Hyperlink bei Zelleingabe erstellt werden nimmst du im VB Editor das SheetChange Ereignis:

Private Sub Worksheet\_Change(ByVal Target As Range)
 Dim FN As String

 If Target = "" Then Exit Sub

 _Const PathString = "D:\Eigene Dateien\"_ 
 FN = Target.Value

 Target.FormulaLocal = "=hyperlink(""" & PathString + FN & """;""" & FN & """)"
End Sub

LG
Chris