Hyperlink suche inkl. sprung

Forumthread: Hyperlink suche inkl. sprung
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Hyperlink suche inkl. sprung

26.08.2021 12:13:35

Ben

Hallo zusammen,
ich habe folgendes Problem:
In Tabelle 1 steht z.B. in A1 "Hans Peter".
ich möchte, dass wenn ich auf Hans Peter klicke, zu der "Hans Peter"-Zelle in Tabelle 2 die irgendwo in B:B steht springen.
Geht das?

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Hyperlink suche inkl. sprung

26.08.2021 12:42:02

{Boris}
AW: Hyperlink suche inkl. sprung

26.08.2021 13:07:24

Ben
AW: Hyperlink suche inkl. sprung

26.08.2021 13:19:09

Ben
Hier noch per VBA...

26.08.2021 12:54:29

{Boris}
AW: Follow doubelclick

26.08.2021 13:39:04

GerdL

AW: Hyperlink suche inkl. sprung

26.08.2021 12:42:02

{Boris}

Hi,
wenn es auch eine Formel sein darf, dann musst Du eine separate Zelle verwenden mit dieser Formel:
=HYPERLINK("#'Tabelle2'!B"&VERGLEICH(A1;Tabelle2!B:B;);"Hüpf hin!")
Ansonsten per VBA. Was ist gewünscht?
VG, Boris

AW: Hyperlink suche inkl. sprung

26.08.2021 13:07:24

Ben

Ne, das wars schon, dank dir!
Hatte die Formel auch gefunden gehabt, habs sie aber bisher nicht verstanden. Da du jetzt die Variabeln auf meine angepasst hast, hab ichs auch kapiert, danke! :)

AW: Hyperlink suche inkl. sprung

26.08.2021 13:19:09

Ben

Ne, das wars schon, dank dir!
Hatte die Formel auch gefunden gehabt, habs sie aber bisher nicht verstanden. Da du jetzt die Variabeln auf meine angepasst hast, hab ichs auch kapiert, danke! :)

Hier noch per VBA...

26.08.2021 12:54:29

{Boris}

Hi,
...mit Doppelklick auf "Hans Peter":


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim C As Range
If Not Intersect(Target, Range("A:A")) Is Nothing Then 'Wirkungsbereich nur in Spalte A
Set C = Tabelle2.Range("B:B").Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not C Is Nothing Then
Application.Goto C
Else
MsgBox "Nix gefunden"
End If
Cancel = True
End If
End Sub

VG, Boris

AW: Follow doubelclick

26.08.2021 13:39:04

GerdL

Moin,
hatte schon so gebastelt.
Rechtsklick auf Tabellereiter des Eingabeblattes - Code anzeigen - ins rechte Fenster kopieren.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim R As Range, T As String
Cancel = Target.Address(0, 0, xlA1) = "A1"
If Not Cancel Then Exit Sub
T = Target.Text
Set R = Worksheets("Tabelle2").Columns(2)
With Application
If .CountIf(R, T) Then .Goto R.Cells(.Match(T, R, 0))
End With
Set R = Nothing
End Sub

Gruß Gerd