Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim Letzte As Long
Dim i As Integer
    Letzte = Sheets("Tabelle1").Cells(Rows.Count, 11).End(xlUp).Row
    For i = 3 To Letzte
        'Zelle in Spalte K wird selektiert
        Cells(i, 11).Select
    'Hyperlink wird eingefügt
    Sheets("Tabelle1").hyperlinks.Add Anchor:=Selection, _
      Address:="http://lehrgang/lehrgang_anzeigen.php?auswahl=" & Cells(i, 11)
 
    Next
End Sub

ich bin über jede kleine hilfe sehr dankbar, weil ich versuche mir das vb selber bei zu bringen...