Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1396to1400
1396to1400
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink auf aktuelle Excel Datei

Forumthread: 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!

Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige