Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngC As Range
Dim strC As String
Dim rngtCell As Range
Dim hyp As Hyperlink
With ActiveSheet
Set rngC = Target.Worksheet.Range("C:C")
For Each rngtCell In Target.Cells
If Not Intersect(rngC, rngtCell) Is Nothing Then
If rngtCell.Value <> "" Then
If rngtCell.Hyperlinks.Count = 0 Then
strC = rngtCell.Value
Application.EnableEvents = False
Set hyp = .Hyperlinks.Add(anchor:=rngtCell, Address:="http://www.google.de/#hl=de&output=search&sclient=psy-ab&q=" & WorksheetFunction.EncodeURL(strC)) hyp.TextToDisplay = "Google-Suche"
Application.EnableEvents = True
End If
End If
End If
Next
End With
End Sub