Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1640to1644
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Hyperlinks zu Worksheets mit selbem Namen aus List

Hyperlinks zu Worksheets mit selbem Namen aus List
17.08.2018 22:15:50
christina
Hallo zusammen,
ich habe eine Datei, wo ich anhand einer Liste via Makro etliche Worksheets generiere, die den selben Namen haben wie die Zellen in der Liste
Zelle A1 = 1; Worksheet 1 = 1
Zelle A2 = 5; Worksheet 2 = 5
...
Ich möchte In der Liste, woraus ich die Worksheets generiert habe jeweils einen Hyperlink zu dem gleichnamigen Wokscheet haben. D.h. wenn man das Beispiel von oben nimmt, muss Zelle A1 zu dem Workshhet mit dem Namen 1 und Zelle A2 zu dem Worksheet mit dem Namen 5 verlinkt werden.
Ich habe schon recht viel gesucht, und finde leider nur Makros, die eine Art "Inhaltsverzeichnis" generieren.
Sub CreateLinksToAllSheets()
Dim sh As Worksheet
Dim cell As Range
For Each sh In ActiveWorkbook.Worksheets
If ActiveSheet.Name  sh.Name Then
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & sh.Name & "'" & "!A1", TextToDisplay:=sh.Name
ActiveCell.Offset(1, 0).Select
End If
Next sh
End Sub

Weil in der Liste in Spalte B-J noch etliche weitere Daten stehen, und ich ide Zahlen aus Spalte A für S-Verweise benötige, ist die "Inhaltsverzeichnis" Variante nicht möglich.
Vielen Dank schon mal
Christina

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlinks zu Worksheets mit selbem Namen aus List
18.08.2018 11:54:39
Mullit
Hallo,
probiers mal hiermit:
Option Explicit

Public Sub test()
   Dim objWorksheet As Worksheet
   Dim objCell As Range
   With Tabelle1 '// Dein Listen-TabBlatt anpassen....!!!! 
        For Each objCell In .Cells(1, 1).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, 1)
            With objCell
                If .Hyperlinks.Count = 0 Then
                   For Each objWorksheet In ThisWorkbook.Worksheets
                       If objWorksheet.Name = .Value Then
                           Call .Hyperlinks.Add(Anchor:=objCell, Address:="", SubAddress:= _
                           "'" & .Value & "'" & "!A1", TextToDisplay:=CStr(.Value))
                           Exit For
                       End If
                   Next
                End If
            End With
        Next
   End With
   Set objWorksheet = Nothing
End Sub


VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel



Code erstellt und getestet in Office 14

Gruß, Mullit
Anzeige

23 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige