Hallo,

ich habe hier ein Makro, das URLs in Hyperlinks umwandelt. Ich habe aber in der Spalte A auch zwischendurch anderen einfachen Text stehen, also keine URL. Dann bricht das Makro mit einem Laufzeitfehler ab (Zeile "rngCell.HyperlinksAdd Anchor ...". Ich bräuchte also eine Fehlerabfangroutine, so dass nach dem Fehler die Umwandlung nicht abbricht, sondern weiterläuft.

Sub TextToURL()
Dim rngCell As Range
For Each rngCell In ActiveSheet.UsedRange
If InStr(rngCell, "http://") > 0 Or InStr(rngCell, "www.") > 0 Then
rngCell.Hyperlinks.Add Anchor:=rngCell, Address:=rngCell.Text
End If
Next
End Sub

Lösung wäre toll.

Grüße
Paul