Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Cells.Count = 1 And _
    Target.Row >= 3 And Target.Column = 11 Then
 
        Target.Hyperlinks.Add Target, _
          "http://lehrgang/lehrgang_anzeigen.php?auswahl=" & Target.Cells(1, _
          1).Value
 
    End If
 
 
End Sub