Und wie kann ich das Makro ergänzen, dass die ganze Tabelle automatisch durchläuft ohne es immer pro einzelne Zeile neu starten zu lassen?
Markiere mehrere Zellen und lass folgendes ablaufen:
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
|