Hallo Forum,
ich habe in Excel einige Zellen mit Dokumenten mittels Hyperlink verknüpft. Wenn ich mit dem Cursor darüberfahre erscheint die „Hand“ und dann kann ich per Klick das entpsprechende Dokument (PDF) öffnen.
Wenn ich nun diese Dokument auf einem anderen Rechner verwenden will geht das nicht, da die verknüpften Dokumente ja auf meinem Rechner lokal liegen. Z.B. habe ich das Excel File als mail versendet und der Empfänger kann damit nichts anfangen. Wie kann ich das Excel Dokumenet so erstellen, dass auch die verknüpften Dokumente mit integriert sind ?
Danke
Gerd.
Du kannst sie als Objekt einbinden…
Wenn die Hyperlinks ins Internet führen funktionieren sie auch beim Zielrechner…
Wenn nicht, dann nicht - da kannst Du auch nix einstellen, weil die Dokumente einfach nicht da sind…
Vorsicht! Excel macht bei Links auf Dateien beim speichern immer aus absoluten Links relative… das versaut einem auch vieles.
Du kannst sie als Objekt einbinden…
Wenn die Hyperlinks ins Internet führen funktionieren sie auch
beim Zielrechner…
Wenn nicht, dann nicht - da kannst Du auch nix einstellen,
weil die Dokumente einfach nicht da sind…
Es ist ein Link auf meine Festplatte C. Kein Link ins internet. Ich dachte man können eventuell die Dateien mit in Excel einbinden damit jeder dem ich die Datei schicke auch Zugriff auf die links hat. Schade.
Also keine Einbindung möglich.
doch, schon - aber dazu landet dann die Datei komplett im File - und das gibt dann wieder herrliche Probleme wenn man versucht die Datei zu ändern…
Unter Einfügen -> Objekt -> Aus Datei erstellen…
Du solltest dann aber noch das Häckchen bei „Als Symbol“ setzen…
Wenn Du es bei einer Exceldatei weglässt siehst Du warum 
Vbalösung
Wenn ich nun diese Dokument auf einem anderen Rechner
verwenden will geht das nicht, da die verknüpften Dokumente ja
auf meinem Rechner lokal liegen. Z.B. habe ich das Excel File
als mail versendet und der Empfänger kann damit nichts
anfangen. Wie kann ich das Excel Dokumenet so erstellen, dass
auch die verknüpften Dokumente mit integriert sind ?
Hi Gerd,
auf anderem Rechner das Makro ablaufen lassen.
Alt+F11, Einfügen–Modul, Code reinkopieren, die lanhe zeile löschen *g,Editor schliessen
Option Explicit
Sub tt()
Dim HL As Hyperlink
For Each HL In Worksheets(1).Hyperlinks
HL.Address = such(Mid(HL.Address, intrrev(HL.Address, "\") + 1))
HL.TextToDisplay = Mid(such(Mid(HL.Address, intrrev(HL.Address, "\") + 1)), InStrRev(such(Mid(HL.Address, intrrev(HL.Address, "\") + 1)), "\") + 1)
' naja HL.TextToDisplay... könnte weg :smile:
Next
End Sub
Function such(ByVal Txt As String) As String
Dim n As Integer
Set fs = Application.FileSearch
With fs
.LookIn = "c:\"
.Filename = Txt
.SearchSubFolders = True
.Execute
Select Case .FoundFiles.Count
Case 1
such = .FoundFiles(1)
Case Else
MsgBox "Problem " & Txt & " gibt es " & .FoundFiles.Count & " mal."
For n = 1 To .FoundFiles.Count
MsgBox .FoundFiles(1)
Next n
End Select
End With
End Function
Gruß
Reinhard