AW: Zwischen verknüpften Dateien springen
15.06.2006 15:50:03
Daniel
Hallo
gehe mal auf Extras - Optionen - Reiter "Bearbeiten"
nimm das Häkchen bei "Direkte Zellbearbeitung" raus (das erste oben links)
wenn du jetzt auf eine Zelle mit externer Verknüpfung doppelt klickst, wird die betroffene Datei geöffnet.
Zum Problem Pfad auslesen:
Ich habe leider keine Funktion gefunden, mit der ich den Formeltext in einen normalen Text umwandeln kann.
wenns sie Funktion gibt, kannst du dir über die normalen Textfunktionen den Pfad herauslösen (am Anfang des Pfads steht ja immer "c:\" und am Ende ".xls", danach kann man suchen und sich den Text dazwischen ausgeben lassen)
Weil ich diese Funktion nicht gefunden habe, habe ich mal selber eine geschrieben, die dir den Pfad aus einer Externen Verknüpfung herausliest.
Es geht aber nur, wenn diese Datei nicht geöffnet ist. Wenn die Datei geöffnet ist, wird der Pfad automatisch aus der Formel gelöscht (und beim schließen wieder ergänzt)
Public
Function Ext_Datei(Zelle As Range) As String
Dim Anfang, Ende As Long
Dim Text As String
If Zelle.Cells.Count > 1 Then
Ext_Datei = "#nur eine Zelle#"
Exit Function
End If
Text = Zelle.FormulaLocal
Ende = 1
Do
Anfang = InStr(Ende, Text, ":\") - 1
If Anfang = -1 Then Exit Do
Ende = InStr(Anfang, Text, ".xls") + 4
Ext_Datei = Ext_Datei & Mid(Text, Anfang, Ende - Anfang) & Chr(10)
Loop
Select Case Ext_Datei
Case ""
Ext_Datei = "#kein externer Bezug, oder Datei ist geöffnet#"
Case Else
Ext_Datei = Left(Ext_Datei, Len(Ext_Datei) - 1)
End Select
End Function
Diese Funktion mußt du im VBA-Editor nur bei Modul einfügen, dann kannst du sie wie eine normale Excelformel verwenden.
Hat eine Zelle mehrere Externe Bezüge, werden die Pfade in eine Zelle geschrieben und sind durch einen Zeilenumbruch getrennt.
Beispiel:
= Ext_Pfad(A1)
Ergebnis "C:\Meine Daten\.....\.... .xls"
Gruß, Daniel
Gruß, Daniel