|
Hey Sigi,
jetzt hab ichs verstanden. Manchmal sagt ein Bild doch mehr als Tausend Worte. Hier gibt es zwei Möglichkeiten. Entweder du suchst mit Range.Find im zweiten Blatt nach dem Eingabewort aus Blatt 1 und kopierst einfach den funktionierenden Link von dort, oder du holst dir die Zeile mit Application.Match und kreierst den Link neu. Letzteres halte ich für besser, da es sich ja immer um die selben Spalten handelt.
Füge in das Modul von Blatt 1 folgenden Code ein:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
Zeile = Application.Match(Target.Value, Sheets("Blatt 2").Range("C:C"), 0)
If Not IsError(Zeile) Then
Range("A5").Hyperlinks.Add Range("A5"), "", "'Blatt 2'!B" & Zeile & ":L" & Zeile, , Target.Value
Else
Range("A5").Hyperlinks.Delete
End If
End If
End Sub
Wenn du nun ein Wort eingibst wird der Link entsprechend überschrieben. Wenn das Wort nicht exisitiert wird der Link gelöscht.
Noch ein Tipp für das Modul "Blatt 2". Füge dort diesen Code ein und der Link wird direkt nach deiner Eingabe eines neuen Wertes in Spalte C erstellt, sodass du das nicht selbst übernehmen musst.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
If Target.Cells(1).Value <> "" Then
Target.Cells(1).Hyperlinks.Add Target, "", "'Blatt 2'!B" & Target.Row & ":L" & Target.Row, , Target.Value
Else
Target.Cells(1).Hyperlinks.Delete
End If
End If
End Sub
Gruß Mr. K.
|