Hallo liebe VBA-Meister,

hab da mal ein kleines Problemchen mit folgendem Script:

Private Sub SetLinks()
Dim FirstRow As Long
Dim LastRow As Long
Dim iRow As Long

With ActiveSheet
FirstRow = 1
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

ActiveSheet.Pictures.Delete
For iRow = FirstRow To LastRow
If Cells(iRow, "A").Value & Cells(iRow, "B").Value & Cells(iRow, "E").Value <> "" Then
ActiveSheet.Cells(iRow, "G").Select
ActiveSheet.Pictures.Insert ("C:\pfadzubild\bild.gif").Select
With Selection
    .Top = Cells(iRow, "G").Top
    .Left = Cells(iRow, "G").Left
    .Height = Cells(iRow, "G").Height
End With
ActiveSheet.Hyperlinks.Add Anchor:=Cells(iRow, "G"), Address:="http://eineadresseimInternet/" & _
Date & "/" & Cells(iRow, "A") & "/" & Cells(iRow, "B") & "/" & Replace(Cells(iRow, "E"), " ", "+") & "/"
End If
Next iRow
End With
EndSub

Ausgangssituation ist folgende kleine tabelle:

         A               B             C              D

1   wert1a     wert1b     wert1c

2   wert2a     wert2b     wert2c

Folgendes soll passieren:

In der Spalte D soll zu jeder Zeile ein Link generiert werden, der aus den Werten aus A,B und C zusammengesetzt wird.

Dieser Link soll aber nicht in textform, sondern als Bild in Spalte D erscheinen.

Danach wird die Tabelle in eine HTML-Datei exportiert, deshalb sollte der Link als Bild erscheinen.

Was bisher funktioniert:

Der Link wird bisher einwandfrei zusammengebaut und in die Spalte D geschrieben.

Es wird auch für jede Zeile das Bild eingefügt.

Das eigentliche Problem:

Wie bekomme ich nun den Link auf das Bild gelegt?

Ich kann zwar händisch mit der rechten Maustaste auf ein Bild klicken und dann über "Hyperlink" einen Link hinzufügen,

aber wie funktioniert das per VBA.

Ich wäre sehr dankbar, wenn mir jemand an dieser Stelle weiterhelfen könnte.

Vielen Dank schonmal

SK