Hyperlinks mit festem Pfad erstellen?
03.06.2007 21:42:00
Selma
mit diesem Makro erstelle ich zur Zeit für dan markierten Zellenbereich die Hyperlinks.
In markierten Zellenbereich stehen nur die Dateinamen (ohne Pfad) z.B. "Anlage 205 vom 24.05.2007.doc"
Alle Dateien liegen im Verzeichnis "d:\schriftverkehr 2007\Anlagen\"
Beim Erstellen des Hyperlinks soll dieser Verzeichnis dem Hyperlink zugewiesen werden.
Hyperlink-Beispiel nachher: "d:\schriftverkehr 2007\Anlagen\Anlage 205 vom 24.05.2007.doc"
Sub Hyperlink()
Dim ws As Worksheet
Dim Zelle As Range
Dim rg As Range
Set ws = ActiveSheet
Set rg = Selection
For Each Zelle In rg.Cells
ws.Hyperlinks.Add Anchor:=Zelle, _
Address:=Zelle.Text, _
ScreenTip:=Zelle.Text, _
TextToDisplay:=Zelle.Text
Next Zelle
Set ws = Nothing
End Sub
Was muss an diesem Code geändert werden?
Vielen Dank im Voraus...
Liebe Grüße
Selma
Anzeige