Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1396to1400
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Hyperlink auf aktuelle Excel Datei

Hyperlink auf aktuelle Excel Datei
23.12.2014 10:55:44
Sascha
Guten Tag,
wie erzeuge ich mit VBA einen Hyperlink auf die Datei in der ich gerade Arbeite ?
Und dann muss der Link auf Blatt "export" - H:1
Bonusfrage: wie sieht der Pastbefehl aus, wenn ich diese Zelle mit VBA kopiere und in eine andere Exceldatei schreiben möchte ( Das funktioniert schon alles ). Ich müsste halt nur den genauen Past Befehl kennen.
Wichtig:
Name der Exceldatei, Speicherort, ändert sich.
Ich bräuchte also wirklich einen Hyperlink auf die Datei, in der ich das VBA script ausführe.
Vielen Dank!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige