Sub
MehrereZellenVerlinken()
Dim
rngZelle
As
Excel.Range
Dim
rngFundzelle
As
Excel.Range
Dim
wksSuchbereich
As
Excel.Worksheet
Set
wksSuchbereich = ThisWorkbook.Worksheets(
"Tabelle2"
)
For
Each
rngZelle
In
Selection
Set
rngFundzelle = wksSuchbereich.Cells.Find(What:=rngZelle.Value)
If
Not
rngFundzelle
Is
Nothing
Then
Call
ThisWorkbook.Worksheets(Selection.Parent.Name).Hyperlinks.Add( _
Anchor:=rngZelle, _
Address:=
""
, _
SubAddress:=rngFundzelle.Parent.Name &
"!"
& rngFundzelle.Address(0, 0))
End
If
Set
rngZelle =
Nothing
Next
rngZelle
End
Sub