Sub replace_entry_with_link(ByRef target As Range) Dim c As Range For Each c In target With Application.Range(Mid(c.Validation.Formula1, 2)).Find(c.Value) c.Formula = "=" & .Worksheet.Name & "!" & .Address End With Next c End Sub
Code eingefügt mit VBA in HTML 2.3 ∞