AW: links aktivieren
09.11.2007 10:02:51
Beverly
Hi,
z.B. mit diesem Code (für Spalte C)
Sub Hyperlink_zurueckschreiben()
Dim loLetzte As Long
Dim loZeile As Long
Application.ScreenUpdating = False
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 3)), Cells(Rows.Count, 3).End(xlUp).Row, Rows. _
Count)
Application.ScreenUpdating = True
For loZeile = 1 To loLetzte
If InStr(1, Cells(loZeile, 3), "www.") > 1 Then
Cells(loZeile, 3).Activate
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Cells(loZeile, 3).Value, TextToDisplay:=Cells(loZeile, 3).Value
End If
Next loZeile
End Sub
________________________________________