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
|