AW: Hyperlink auf aktuelle Excel Datei
29.12.2014 13:21:16
fcs
Hallo Sascha,
1. Hyperlink auf aktive Datei
Kompletten Pfad mit Name der Datei in einer Variablen speichern, dann in der Zieltabellen einen entsprechenden Hyperlink hizufügen.
Sub aaTest() 'Code-Beispiel
Dim wksZiel As Worksheet
Dim strPathLink As String
Set wksZiel = Worksheets("export")
Workbooks("94544.xlsm").Activate 'Testzeile
strPathLink = ActiveWorkbook.FullName
'oder
strPathLink = ActiveWorkbook.FullNameURLEncoded
With wksZiel
.Hyperlinks.Add Anchor:=.Range("H1"), Address:=strPathLink
End With
End Sub
2. Zelle mit Hyperlink kopieren/einfügen
Entweder direkt die Copy-Funktion für Zellen verwenden mit Destination-Angabe.
oder bei PasteSpecial die Option xlPasteAll
Sub bbTest() ' Beispiel
Worksheets("export").Range("H1").Copy _
Destination:=Workbooks("Zielmappe.xlsx").Worksheets("Zieltab").Range("B4")
'oder
Worksheets("export").Range("H1").Copy
Workbooks("Zielmappe.xlsx").Activate
Worksheets("Zieltab").Range("B6").PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
End Sub
Ob das noch funktioniert, wenn Dateinamen / Speicherort geändert werden: ?
Gruß
Franz