AW: Springt leider nicht zu der Zelle
04.05.2022 16:40:35
Michael
Hallo Jochen,
ja, mit Tabelle1 ist der Standardname des ersten, automatisch in einer neuen Datei vorhandenen Blattes gemeint.
Wie Du das mit dem Platzhalter meinst, verstehe ich nicht ganz, aber vielleicht insgesamt diese kleine Beispieldatei. Auf jeden Fall müsstest Du sehen, was wir verstanden haben; ich hoffe jedenfalls, dass Werner dasselbe verstanden wie ich.
Die zu suchende Nummer (Dein Beispiel A12345) steht in H10, so wie Du die Formel angepasst hast. Wo die Formel selber steht, ist offensichtlich egal:
https://www.herber.de/bbs/user/152860.xlsx
Ein Makro wäre nötig, wenn aus der in Zelle H10 befindlichen Nummer selbst der Link werden soll. Mit Formel brauchst Du, wie Du schreibst, immer "extra Zelle als Platzhalter für den Link ". Oder meinst Du das ganz anders?
Letztlich wäre das Makro denkbar einfach: Markiere die "hyperlinkenden" Zellen, also Deine Nummern auf Blatt zwei und führe diesen Code aus (in ein Modul des VBA-Editors einbauen):
Sub Hyperhyper()
With ActiveSheet
For Each cell In .Range("C2:C" & .Cells(1048576, 3).End(xlUp).Row) 'Selection
' wenn die Nummern wirklich als Zahlen formatierte Nummern sind
ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:="#Tabelle1!F" & Application.Match(cell.Value, Range("Tabelle1!F:F"), 0), TextToDisplay:=CStr(cell.Value)
' Sonst keine Typumwandlung am Ende
'ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:="#Tabelle1!F" & Application.Match(cell.Value, Range("Tabelle1!F:F"), 0), TextToDisplay:=cell.Value
Next cell
End With
End Sub
VG Michael