Ich habe folgendes Code zum automatisierten Erstellen eines Hyperlinks erstellt:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range, D As Range
Dim Ws As Worksheet
Set C = Range("L:L") 'In diesem Eingabebereich wirkt der Code
Set Ws = Worksheets("Tax_codes")
If Target.Count = 1 Then
If Not Intersect(Target, C) Is Nothing Then
'Es wird in Spalte 1 (A) gesucht
Set D = Ws.Columns(1).Find(what:=Target, lookat:=xlWhole, LookIn:=xlValues)
If Not D Is Nothing Then
Target.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:="Tax_codes!" & D. _
Address
Else
Target.Hyperlinks.Delete
End If
End If
End If
End Sub
Funktioniert wunderbar!
Jetzt der Clou: Ich würde gerne die gefundene Zeile (in Tab.-blatt 'Tax_codes') von Spalte A-Q markieren, damit man sofort sieht, was gefunden wurde. Z.Zt. stellt sich der Hyperlink auf die jeweilige Zeile in Spalte A.
Wer hat eine Idee, wie man den Code erweitern oder einen neuen Code einfügen kann.
Danke und Liebe Grüße
- Jürgen .