VBA Skript für Ordnerabfrage und Hyperlink

[ChrisBK]

Hallo!

Ich muss eine Tabelle mit knapp 1000 Einträgen bearbeiten. Und zwar geht es darum, dass ich in Spalte E Nummern stehen habe z.B. "01750088469". Zu diesen Nummern existieren nun Bilder die in einem Ordner auf einem Shared Drive liegen und entweder mit der ganzen Nummer als jpg-Datei oder mit den letzten 4 Digits als jpg-Datei bezeichnet sind. Nun soll zu jeder Nummer aus Spalte E ein Hyperlink zu dem entsprechenden Bild in Spalte F gemacht werden.

Wie ich Hyperlinks in einem VBA Skript erstelle ist mir bekannt, aber ist es auch möglich eine solche Suche zu machen?

[Fennek]

Hallo,

um das "entweder oder" aufzulösen, kann man

Code:

Pfad = "c:\temp\" '<<<<<<<<<< anpassen >>>>>>>>>

if dir(Pfad & cells(i, "E") & ".jpg") <> "" then
if dir(Pfad & right(cells(i, "E"),8) <> "" then

mfg