HERBERS Excel-Forum - die Beispiele

Thema: Dateiname, Tabelle und Berreich zu einer Verknüpfung verbinden

Home

Gruppe

Link

Problem

Ein über GetOpenFileName ermittelter Dateiname soll in Zelle A2 mit dem Arbeitsblattnamen in Zelle B2 und der Zelladresse in C2 zu einer Verknüpfung verbunden werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1

Sub CreateLink()
   Dim vFile As Variant
   Dim sPath As String, sWkb As String, sWks As String, sRng As String
   vFile = Application.GetOpenFilename("Excel-Dateien (*.xls), *.xls")
   If vFile = False Then Exit Sub
   sWks = Range("B2").Value
   sRng = Range("C2").Value
   sPath = fctPathName(CStr(vFile))
   sWkb = fctFileName(CStr(vFile))
   vFile = "'" & sPath & "[" & sWkb & "]" & sWks & "'!" & sRng
   Range("A2").Formula = "=" & vFile
End Sub

Private Function fctPathName(sFile As String)
   Dim iCounter As Integer
   Dim sTmp As String
   sTmp = sFile
   Do While InStr(sTmp, "\")
      sTmp = Right(sTmp, Len(sTmp) - 1)
      iCounter = iCounter + 1
   Loop
   fctPathName = Left(sFile, iCounter)
End Function

Private Function fctFileName(sFile As String)
   Dim iCounter As Integer
   For iCounter = Len(sFile) To 1 Step -1
      If Mid(sFile, iCounter, 1) = "\" Then Exit For
   Next iCounter
   fctFileName = Right(sFile, Len(sFile) - iCounter)
End Function

Beiträge aus dem Excel-Forum zu den Themen Link und Extern

Defekter Link bei Forumsbeiträgen Defekter Link bei Forumsbeiträgen
Defekter Link bei Forumsbeiträgen Hyperlink per Code aktivieren, gibt Fehlerhinweis
Verlinkung Excel-Powerpoint VBA Links im Verzeichnis auslesen
VLOOKUP auf Links funktioniert offline xlDialogInsertHyperlink.show
Hyperlinks in Excel Link ändert sich beim Sortieren
sverweis nach links möglich? Grafik - Linie nach unten, Kriterien links
Bereich von rechts nach links auslesen? Hyperlink auf Excel-Datei funktioniert nicht
Hyperlinks automatisch starten Hyperlink zu Wordtabelle mit Textmarke
Userform. Link datei Hyperlink variabel
Hyperlink - UserForm Hyperlink öffnet Arbeitsmappe mit Parametern
Excel links auf seite Mail mit Link und Parameter erzeugen
Links automatisch aus Zellen generien Hyperlinks finden
Hyperlink zurückwandeln? Hyperlink zurückwandeln?
Hyperlink zurückwandeln? Hyperlink
Hyperlink als Button Dateiname externer Datei ändern
Links to Other Workbooks - Nur wo? Hyperlink öffnen - URL in Zelle
Hyperlink ... Verkürzung der Verzeichnisauswahl Tabelle mit Link im Forum posten
Hyperlinks - Standardordner ändern Tabellenblatt aus externer Exceldatei kopieren
Hyperlink bestimmten Text blinken lassen
verlinkungen in markiertem bereich erneuern Blinkender Kreis nach Zahl in Zelle?
Daten aus Zellen autom. nach Links verschieben Hyperlink
ConboBox mit externe Daten füllen gutes WORD-Forum, Link?
Hyperlinks Set oWS = oWB.Worksheets(Range("link").Parent.Name
Hyperlink TEIL/RECHTS/LINKS
Prüfen ob Hyperlink