(Hyper)link zu Zelle mit gleichem Wert

Hallo alle zusammen,
ich habe mehrere Tabellen in einer Arbeitsmappe/Datei zwischen welcher ich nun gerne Links (zu anderen Zellen) einpflegen möchte.
Nun will ich gerne Firmen aus den verschiedenen Tabellen mit den Zellen in der Firmen-Spalte mit/in der/die Adress-Tabelle verknüpfen. (gleiche Datei)
Heißt, wenn man in einen der Tabellen auf einen Firmennamen klickt, springt Excel automatisch zur Adress-Tabelle und wählt den ersten Eintrag mit dem gleichen Wert (dem Namen der Firma) aus.
Dies soll Mitarbeitern erleichtern schneller an Ansprechpartner und Adressen zu gelangen.
Wäre es nur eine Verknüpfung zu einer statischen Zelle/Position (also Excel-Koordinate), wäre dies für mich kein Problem.
Allerdings möchte ich (eine Art dynamische) Links erzeugen die automatisch zu der passenden Position einer Spalte in einer anderen Tabelle (anhand des gleichen Werts) springt.
Meiner Meinung nach, komme ich wohl um den Einsatz von Makros nicht umher, allerdings ist mein der letzte intensiver Kontakt mit VB-Script schon über 15 Jahre her.
Über jeden Tipp in die richtige Richtung, wäre ich sehr dankbar.
Gruß,
Sascha

Hallo,
versuch es mal so.
kommt als Code in die Tabelle Zusammenfassung

Option Explicit 
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 
Dim rng As Range, rngFind As Range, oWS As Worksheet, sErste$ 
   
Set rng = Intersect(Me.UsedRange.EntireRow.Columns(1).Resize(, 3), Target) 
If rng Is Nothing Then Exit Sub 
   
Set rng = rng.Rows(1).EntireRow.Cells(1, 1).Resize(, 3) 
   
If rng.Cells(1, 1) = "" Then 
    If rng.Cells(1, 2) = "" Then 
        If rng.Cells(1, 3) = "" Then 
            Exit Sub 
        End If 
    End If 
End If 
 
For Each oWS In ThisWorkbook.Worksheets 
    If oWS.Name <> Me.Name Then 
        Set rngFind = oWS.UsedRange.Find(What:=rng.Cells(1, 1).Value, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False) 
          
        If Not rngFind Is Nothing Then 
            sErste = rngFind.Address 
            Do 
                With rngFind.Resize(, 3) 
                    If .Cells(1, 2).Value = rng.Cells(1, 2).Value Then 
                        If .Cells(1, 3).Value = rng.Cells(1, 3).Value Then 
                            Exit For 
                        End If 
                    End If 
                End With 
                Set rngFind = oWS.UsedRange.FindNext(rngFind) 
            Loop While sErste <> rngFind.Address 
        End If 
    End If 
    Set rngFind = Nothing 
Next oWS 
   
If Not rngFind Is Nothing Then Cancel = True: Application.Goto rngFind 
End Sub

Gruß Tino

(Hyper)link zu Zelle mit gleichem Wert

Forumthread: (Hyper)link zu Zelle mit gleichem Wert

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial