Makro zur automatischen Erstellung von Hyperlinks

Computer: Software & Programmierung Office Software
1

Hallo!

Ich habe eine Excel 2002 Tabelle. In einer Spalten ist pro Zeile je eine Datei benannt. Ich möchte ein Makro schreiben, durch dass automatisch für jede Datei ein Hyperlink auf die entsprechende Datei gesetzt wird. Die Dateien befinden sich alle in einem Verzeichnis.

DANKE!

Birgit :smile:

2

Ich habe eine Excel 2002 Tabelle. In einer Spalten ist pro
Zeile je eine Datei benannt. Ich möchte ein Makro schreiben,
durch dass automatisch für jede Datei ein Hyperlink auf die
entsprechende Datei gesetzt wird. Die Dateien befinden sich
alle in einem Verzeichnis.

Hi Birgit,
aus einem andren Forum von einer K.Rola:

Option Explicit
Sub Makro1()
Dim zei As Long
For zei = 1 To Range("A65536").End(xlUp).Row
 Cells(zei, 1).Hyperlinks.Add Anchor:=Cells(zei, 2), Address:="", \_
 SubAddress:="c:\download\" & Cells(zei, 1), \_
 TextToDisplay:=Cells(zei, 1).Text
Next zei
End Sub

Gruß
Reinhard