Excel - Hyperlinks

Computer: Software & Programmierung Office Software
1

Hallo Experten,

ich habe folgendes Problem: Bei Excel (97) habe ich Pfade von verschiedenen Dateien angegeben. Nun möchte ich diese verlinken. Da ich bis jetzt über 200 verschiedene Pfade angegeben habe, hab’ ich keine Lust, das alles einzeln zu machen.
Meine Frage: Kann man bei Excel 97 auf einmal alle Pfade verlinken, wenn ja, wie?

Vielen dank für alle Antworten!!!

2

ich habe folgendes Problem: Bei Excel (97) habe ich Pfade von
verschiedenen Dateien angegeben. Nun möchte ich diese
verlinken. Da ich bis jetzt über 200 verschiedene Pfade
angegeben habe, hab’ ich keine Lust, das alles einzeln zu
machen.
Meine Frage: Kann man bei Excel 97 auf einmal alle Pfade
verlinken, wenn ja, wie?

Hi Jonathan,

wenn deine reinen dateinamen ohne .xls" in Spalte A1:Ax stehen dann so,
Alt+F11,Einfügen Modul, dortrein den Code, ggfs die Spalte und Address anpassen, Editor schliessen.
In Excel Extras–Makros–Makros das Makro makro3 ausführen

Sub Makro3()
Dim Zei As Long
For Zei = 1 To Range("A" & Rows.Count).End(xlUp).Row
 ActiveSheet.Hyperlinks.Add Anchor:=Range("B" & Zei), Address:="H:\" & Range("A" & Zei).Value & ".xls", TextToDisplay:=Range("A" & Zei).Value
Next Zei
End Sub

Gruß
Reinhard

3

Hallo Leute!

Ich habe noch etwas (ganz wichtiges) vergessen!

Bei den Pfaden habe ich nicht [Beispiel] „C:\Dokumente und Einstellungen…\Sonstiges\Mappe1.xls“ angegeben, sondern „C:\Dokumente und Einstellungen…\Sonstiges“. Der Dateiname steht bei mit 1 Spalte weiter rechts!

Danke schon mal an Reiner!!!

4

Bei den Pfaden habe ich nicht [Beispiel] „C:\Dokumente und
Einstellungen…\Sonstiges\Mappe1.xls“ angegeben, sondern
„C:\Dokumente und Einstellungen…\Sonstiges“. Der Dateiname
steht bei mit 1 Spalte weiter rechts!

Hi Jonathan,

Sub Makro3()
Dim Zei As Long, Pfaddatei As String, Anzeige As String
For Zei = 1 To Range("A" & Rows.Count).End(xlUp).Row
 With ActiveSheet.Hyperlinks
 Pfaddatei = Range("A" & Zei)
 If Right(Pfaddatei, 1) "\" Then Pfaddatei = Pfaddatei & "\"
 Pfaddatei = Pfaddatei & Range("B" & Zei).Value
 If Right(Pfaddatei, 4) ".xls" Then Pfaddatei = Pfaddatei & ".xls"
 Anzeige = Replace(Range("B" & Zei).Value, ".xls", "")
 .Add Anchor:=Range("c" & Zei), Address:=Pfaddatei, TextToDisplay:=Anzeige
 End With
Next Zei
End Sub

Gruß
Reinhard