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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen