Hyperlinks zu Tabellenblättern mit VBA erstellen

Hallo zusammen,
ich habe schon länger gegoogelt aber leider noch keine wirklich passende Lösung gefunden, daher hoffe ich hier auf Hilfe.
Folgende, eigentlich einfache Problemstellung:
Ich habe eine Excel-Tabelle, die aus einem Übersichtsblatt ("Übersicht"), in dem in der Spalte B in Zeile 5-34 die Nachnamen von Mitarbeitern gelistet sind, und weiterhin aus den individuellen Tabellenblättern zu den jeweiligen Mitarbeitern, die mit dem jeweiligen Nachnahmen entsprechend der Übersichtsliste bezeichnet sind, besteht.
D.h., dass die Übersichtsliste sowie die individuellen Tabellenblätter bereits bestehen und benannt sind (es sollen keine neuen Blätter erstellt oder ein Inhaltsverzeichnis generiert werden).
Jetzt möchte ich lediglich einen Button im Tabellenblatt "Übersicht" haben, der automatisch und auf einmal alle Hyperlinks von den Namen in der Übersichtsliste zu den entsprechenden Tabellenblättern generiert.

Mit meinen kleinen VBA-Kenntnissen bekomme ich es leider nicht hin, eine solche Routine zu schreiben, die die Namen in der "Übersicht" auf einmal ausliest und den bereits benannten Tabellenblättern per Hyperlink zuordnet, ohne dabei eine neue Spalte etc. in der Übersicht zu erstellen (es sollen die bereits vorhandenen Namen in der Übersicht mit dem Hyperlink versehen werden).
Hier eine kleine Beispieldatei:
https://www.herber.de/bbs/user/132713.xlsm
Wer kann mir helfen?
Gruß,
Dete

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Hyperlink_erzeugen() Dim wksQuelle As Worksheet, loLetzte As Long, i As Long Set wksQuelle = Worksheets("Übersicht") With wksQuelle loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row For i = 2 To loLetzte .Cells(i, 2).Hyperlinks.Add Address:="", Anchor:=.Cells(i, 2), _ SubAddress:=Worksheets(CStr(.Cells(i, 2))).Range("A1").Address(True, True, , True) Next i End With Set wksQuelle = Nothing End Sub

Hallo Werner,
erstmal VIELEN DANK für deine schnelle und tolle Hilfe. Der Code funktioniert an sich auch gut und macht genau das, was ich mir vorgestellt habe! TOP!
Aber nachdem ich den Code in meine Original-Datei eingebaut habe, meldet VBA immer, dass irgendetwas in einem ungültigen Bereich liegt?! Das kann nur eine Kleinigkeit sein, die durch das Einfügen in meine Originaldatei entstanden ist (ggf. durch einen abweichenden Zeilenbereich o.ä.), aber mir fehlen leider die Kenntnisse, um das im Code zu überprüfen.
Ich habe daher mal eine neue Beispieldatei beigefügt, die im Prinzip genau der originalen Datei entspricht und wo ich deinen Code schon eingebaut habe. Vielleicht könntest du nur nochmal draufgucken, an welcher Stelle der Fehler auftritt und was ich da falsch gemacht habe...
https://www.herber.de/bbs/user/132731.xlsm
Nochmals vielen Dank und die tolle Hilfe hier im Forum!
Gruß,
Dete

Option Explicit Sub Hyperlink_erzeugen() Dim wksQuelle As Worksheet, loLetzte As Long, i As Long Set wksQuelle = Worksheets("Übersicht") With wksQuelle loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row For i = 6 To loLetzte .Cells(i, "B").Hyperlinks.Add Address:="", Anchor:=.Cells(i, "B"), _ SubAddress:=Worksheets(CStr(.Cells(i, "B"))).Range("A1").Address(True, True, , True) Next i End With Set wksQuelle = Nothing End Sub

Option Explicit Sub Hyperlink_erzeugen() Dim wksQuelle As Worksheet, loLetzte As Long, i As Long Set wksQuelle = Worksheets("Übersicht") With wksQuelle loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row For i = 6 To loLetzte If .Cells(i, "B") "" Then .Cells(i, "B").Hyperlinks.Add Address:="", Anchor:=.Cells(i, "B"), _ SubAddress:=Worksheets(CStr(.Cells(i, "B"))).Range("A1").Address(True, True, , True) _ End If Next i End With Set wksQuelle = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Hyperlinks zu Tabellenblättern mit VBA erstellen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Hyperlinks zu Tabellenblättern mit VBA erstellen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread