Office: (Office 2016) hyperlink in inhaltsverzeichnis

Hallo,

ich kann krieg das irgendwie nicht hin.

ich möchte die Neu Erstellte Tabelle via UserForm auch gleich in mein Inhaltsverzeichnis als Hyperlink eintragen.
es sollte in jeder Zeile der Name aus der Textbox als Link zur Tabelle stehen

Ich blicke da nicht durch....
kann mir jemand helfen?

Code:

Private Sub CommandButton1_Click()

  Dim i As Long
  Dim bolOptionCopyObjects As Boolean
 
 
  With Application
    'Objekt-Kopieroption merken und auf True setzen
    bolOptionCopyObjects = .CopyObjectsWithCells
    .CopyObjectsWithCells = True
  End With
  'Zell-/Blattkopieraktionen bei denen die Objekte (Bilder, Formen etc. mit kopiert werden _
sollen
 
 Sheets("Vorlage").Copy after:=Sheets(Sheets.Count)
  With ActiveSheet
    .Name = UserForm1.TextBox1.Value & UserForm1.TextBox2.Value & UserForm1.TextBox3.Value
    .Shapes(1).Delete
    If OptionButton1 = True Then ActiveSheet.Tab.Color = RGB(0, 112, 192)
    If OptionButton2 = True Then ActiveSheet.Tab.Color = RGB(255, 255, 0)
    End With

    'Objekt-Kopieroption wieder auf den gemerkten Wert setzen
  Application.CopyObjectsWithCells = bolOptionCopyObjects
 
With Worksheets
i = Sheets("Deckblatt").Cells(Rows.Count, 1).End(xlUp).Row + 1
 

Sheets("Deckblatt").Cells(i, 1).Value = UserForm1.TextBox1.Value & UserForm1.TextBox2.Value & UserForm1.TextBox3.Value
Sheets("Deckblatt").Cells(i, 2).Value = UserForm1.TextBox2.Value
Sheets("Deckblatt").Cells(i, 3).Value = UserForm1.TextBox1.Value

End With
    
Unload UserForm1
    
    End Sub

 

Hi,

hast du schon mal den Makrorekoder dazu benutzt um den Code für das Erstellen eines Hyperlinks auf ein anderes Tabellenblatt aufzuzeichnen?

---

 

ja habe ich schon mal gemacht.

irgendwie verwendet der dann immer das gleiche Tabellenblatt als Hyperlink.

 

In dem aufgezeichneten Code musst du dann den dort fix eingetragenen Tabellenblattnamen durch deinen variablen Namen für das neue Tabellenblatt ersetzen.

---