Jede Tabelle ist mit Vornamen und Nachnamen definiert.
Wie kann ich in Tabelle 1 die Links zu allen 21 Tabellennamen setzen ?
Monatlich ändern die Tabellen-Namen und die Links sollten mittels VBA aktualisiert werden können.
Sub Tabellennamen_auslesen()
Columns("A:A").ClearContents
For i = 1 To Worksheets.Count
Sheets("Inhaltsverzeichnis").Cells(i, 2).Value = Sheets(i).Name 'TabBlattName anpassen
Next
MsgBox ("Es befinden sich ") & ThisWorkbook.Worksheets.Count & (" Tabellenblätter in dieser Arbeitsmappe."), vbOKOnly, "PSD.xls"
End Sub