Excel2003: Hyperlink per VBA auf auswählbare Datei

11/03/2008 - 16:45 von Erich Jung | Report spam
Hallo liebes Forum,

ich suche leider vergebens nach einer Lösung per VBA aus einem
bestimmten Verzeichnispfad eine auswàhlbare Datei als Hyperlink in ein
Tabellenblatt einzufügen.

Das was mir aus dem Forum zusagen würde sieht folgendermassen aus:
Wie muss man das Makro àndern um direkt auf den gewünschten Pfad zu
gelangen z.B.: C\Test\Variante\ um da dann eine Datei für den Link
auswàhlen zu können.

Sub NeueLinks()
Dim NeueDateien As Variant, i As Long, z As Long, s As Long

NeueDateien = Application.GetOpenFilename("Files (*.*), *.*", ,
"Dateilink", "Einfügen", True)
If IsArray(NeueDateien) Then
s = ActiveCell.Column
z = Cells(ActiveSheet.Rows.Count, s).End(xlUp).Row
If Not (IsEmpty(Cells(z, s))) Then z = z + 1
For i = LBound(NeueDateien) To UBound(NeueDateien)
Cells(z, s).Hyperlinks.Add Cells(z, s), NeueDateien(i)
z = z + 1
Next
End If
End Sub

Bitte um einen Tipp wie die Lösung aussehen könnte.

Gruß Erich
 

Lesen sie die antworten

#1 stefan onken
11/03/2008 - 17:11 | Warnen spam
On 11 Mrz., 16:45, Erich Jung wrote:
Hallo liebes Forum,

ich suche leider vergebens nach einer Lösung per VBA aus einem
bestimmten Verzeichnispfad eine auswàhlbare Datei als Hyperlink in ein
Tabellenblatt einzufügen.

Das was mir aus dem Forum zusagen würde sieht folgendermassen aus:
Wie muss man das Makro àndern um direkt auf den gewünschten Pfad zu
gelangen z.B.: C\Test\Variante\  um da dann eine Datei für den Link
auswàhlen zu können.

Sub NeueLinks()
   Dim NeueDateien As Variant, i As Long, z As Long, s As Long

     NeueDateien = Application.GetOpenFilename("Files (*.*), *.*", ,
"Dateilink", "Einfügen", True)
   If IsArray(NeueDateien) Then
      s = ActiveCell.Column
      z = Cells(ActiveSheet.Rows.Count, s).End(xlUp).Row
      If Not (IsEmpty(Cells(z, s))) Then z = z + 1
      For i = LBound(NeueDateien) To UBound(NeueDateien)
         Cells(z, s).Hyperlinks.Add Cells(z, s), NeueDateien(i)
         z = z + 1
      Next
   End If
End Sub

Bitte um einen Tipp wie die Lösung aussehen könnte.

Gruß Erich



hallo Erich, teste mal dieses:

Sub NeuerLink()
Dim NeueDatei
ChDir "C\Test\Variante\"
NeueDatei = Application.GetOpenFilename _
("Files (*.*), *.*", , "Dateilink", "Einfügen")
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, Address:=NeueDatei
End Sub

ChDir wechselt in das Verzeichnis, ggfls ist zusàtzlich ein ChDrive
notwendig, wenn auch das Laufwerk geàndert werden soll.
Der Link wird in die aktive Zelle (Selection) eingefügt, dass làsst
sich aber anpassen.

Gruß
stefan

Ähnliche fragen