Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1580to1584
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

Pfad als Hyperlink in Zelle

Pfad als Hyperlink in Zelle
18.09.2017 10:29:58
Adrian
Guten Morgen,
ich bin leider im Internet nicht fündig geworden, um nachfolgendes Problem zu lösen.
Ich habe eine Excel-Datei und möchte nach dem Abspeichern in der Zelle F46 den Hyperlink zum Speicherordner ausgeben, d.h. das ich bei Klick auf den Link direkt im Ordner lande.
Sobald ich die Datei in einem anderen Ordner ablege, soll sich der Pfad auch aktualisieren.
Hat hierfür jemand eine Idee/Lösung?
Gruß
Adrian

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pfad als Hyperlink in Zelle
18.09.2017 10:37:00
Michael
Hallo!
Ins Modul der Arbeitsmappe folgenden Code:
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim c As Range
With Me
With .Worksheets("Tabelle1")  'anpassen
Set c = .Range("F46")
c.ClearContents: c.Hyperlinks.Add anchor:=c, Address:=Me.Path
Me.Save
End With
End With
End Sub
LG
Michael
oder ohne VBA
18.09.2017 10:40:58
Robert
Hallo,
ein Lösung ohne VBA gibt es auch. Folgende Formel in F46 erledigt das auch:
=HYPERLINK(LINKS(ZELLE("Dateiname";$F$46);FINDEN("[";ZELLE("Dateiname";$F$46))-2))
Gruß
Robert
AW: oder ohne VBA
18.09.2017 10:58:40
Adrian
Hallo Robert,
vielen Dank für die Hilfe.
Nun habe ich nur ein Problem.
Die Datei wird von mehreren Usern genutzt, wovon einige Excel in Deutsch verwenden und die anderen die Spracheinstellung auf Englisch gesetzt haben.
Die Englische Variante beinhaltet statt "Dateiname" "filename", was allerdings als einiziger Teil innerhalb der Formel nicht übersetzt wird. Wie kann ich die Formel für beide Usergruppen nutzbar machen? oder benötige ich hier zwei verschiedene Felder? Besteht die Möglichkeit die Problematik über eine Oder()-Funktion zu lösen?
Gruß
Adrian
Anzeige
AW: oder ohne VBA
18.09.2017 11:07:25
Robert
Hallo Adrian,
die englische Version
=HYPERLINK(LINKS(ZELLE("Filename";$F$46);FINDEN("[";ZELLE("Filename";$F$46))-2))
funktioniert auch bei der deutschen Spracheinstellung.
Gruß
Robert
AW: oder ohne VBA
18.09.2017 11:43:05
Adrian
Danke dir!

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige