Excel 2003: Mehrere Hyperlinks gleichzeitig erstellen

moinmoin,

folgendes Problem:

Ich sitze hier vor einer Excel-Tabelle einer sehr langen Index-Spalte ~ 5000 Einträge. Zu jedem dieser Einträge (immer eine nummer z.B. 25463) gehört eine .jpg, welche die gleiche nummer hat, mit dem Zusatz _1. Nun sollen die jpg's mit dem dazugehörigen Index verlinkt werden.

Natürlich könnte ich jetzt für jeden index einzeln einen hyperlink zu der Datei erstellen, aber das dauert dann ja jahre. Ich wollte mal wissen, ob es nicht eine möglichkeit gibt, dass excel dieses automatisch macht, da ja die indexnummer und der name des bildes gleich sind ( das bild eben nur mit dem zusatz _1 oder _2 etc).

hoffe auf eine schnelle Antwort.
vielen dank, mit freundlichen Grüssen

 

Hi,

probier es mal mit einem Makro

Code:

Sub DoIndex()
  Dim Zelle As String, Bild As String, Pfad As String, i As Long
  
  For i = 1 To 5000
    Zelle = "A" & CStr(i)
    Range(Zelle).Select
    
    Bild = Range(Zelle).Text
    Pfad = "C:\Eigene Dateien\Eigene Bilder\" & Bild & "_1.jpg"
    
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Pfad
  Next i
End Sub

Wobei Du den Bereich "For i = 1 To 5000" entsprechend den Zeilennummern und bei "Zelle = A" das A entsrpechend der Spalte, in der die Nummer steht, anpassen musst. Außderm mußt Du selbstverstädnlich den Pfad (im Beispiel "C:\Eigene Dateien\Eigene Bilder\") anpassen.

 

danke aber wie bekomme ich dein makro denn in das fenster (siehe Anhang) eingefügt bzw. reingeschrieben oder ist es das falsche fenster?

mfg

 

Hi,

mit der Tastenkombination <ALT> + <F11> öffnest Du den Makro-Editor. Hier hast Du links eine explorerähnliche Ansicht. Mach einen Doppelklich auf "Diese Arbeitsmappe" und füge dort den kompletten Code ein. Dann kannst Du es über "Extras / Makro / Makros" ausführen.

Noch ein Hinweis:
Bevor Du das Makros ausführst, solltest Du eine Sicherheitskopie der Arbeitsmappe machen. Ich übernehme keine Gewähr dafür, daß das Makro bei Dir richtig läuft.