Sub Hyperlink()
Const Dateipfad = "..\..\Bilder\Prüfung%200001\"
Dim zeile As Long
With ActiveSheet
For zeile = 2 To 77
Hyperlinks.Add Anchor:=.Cells(zeile, 8), Address:= _
Dateipfad & zeile - 1 & "%20Gesamt.jpg", TextToDisplay:="1"
Hyperlinks.Add Anchor:=.Cells(zeile, 9), Address:= _
Dateipfad & zeile - 1 & "%20Detail%201.jpg", TextToDisplay:="2"
Hyperlinks.Add Anchor:=.Cells(zeile, 10), Address:= _
Dateipfad & zeile - 1 & "%20Detail%202.jpg", TextToDisplay:="3"
Next zeile
End With
End Sub