Hallo zusammen,

kann mir bitte jemand beim programieren helfen?

Möchte eine Schleife für das nachfolgende Makro zu basteln?

hab leider keine ahnung von Makro bauen:(

(ist mein erstes).

Die Zelle H2;I2;J2 sollen bist H77;I77;J77 wie unten bereits manuell angefangen automatisch ausgefüllt werden.

Bei der Datei ändert sich mit der neuen Zelle auch die erste Ziffer.

Sub Hyperlink()
'
' Hyperlink Makro
'

Range("H2").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "..\..\Bilder\Prüfung%200001\1%20Gesamt.jpg", TextToDisplay:="1"
    Range("I2").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "..\..\Bilder\Prüfung%200001\1%20Detail%201.jpg", TextToDisplay:="2"
    Range("J2").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "..\..\Bilder\Prüfung%200001\1%20Detail%202.jpg", TextToDisplay:="3"
     Range("H3").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "..\..\Bilder\Prüfung%200001\2%20Gesamt.jpg", TextToDisplay:="1"
    Range("I3").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "..\..\Bilder\Prüfung%200001\2%20Detail%201.jpg", TextToDisplay:="2"
    Range("J3").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "..\..\Bilder\Prüfung%200001\2%20Detail%202.jpg", TextToDisplay:="3"
    Range("H4").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "..\..\Bilder\Prüfung%200001\3%20Gesamt.jpg", TextToDisplay:="1"
    Range("I4").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "..\..\Bilder\Prüfung%200001\3%20Detail%201.jpg", TextToDisplay:="2"
    Range("J4").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "..\..\Bilder\Prüfung%200001\3%20Detail%202.jpg", TextToDisplay:="3"
End Sub

Danke bereits im Vorraus

Max