Gruppe
Grafik
Problem
Auf Schaltflächenklick sollen alle mit Hyperlink verbundenen Bilder der ausgewählten Zellen geöffnet werden
StandardModule: Modul1
Sub LoadPictures()
Dim rng As Range
For Each rng In Selection.Cells
Shell "hh " & rng.Hyperlinks(1).Address, vbNormalFocus
Next rng
End Sub