weiß jemand, wei man prüft ob eine Zelle einen Hyperlink enthält?
... If Cells(i, 2).Hyperlinks(1).Address ""...
funktioniert nicht.
Danke,
Born
Sub tt()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Hyperlinks.Count > 0 Then MsgBox Zelle.Address
Next Zelle
End Sub
Gruß
Reinhard