Tabellennamen auslesen und schreiben
Maris
ich habe hier einen Code der Tabellennamen aus einer Datei ausließt und Sie in eine neue Datei untereinander schreibt....
Der Code sollte aber nach Möglichkeit die Tabellenname in der selben Datei im Tab "Auflistung" die Namen auslesen und wie folgt in Zelle A1 schreiben:
"Tabelle1", "Tabelle2", "Tabelle3", usw
Sub test()
Dim Quelle As Workbook, Ziel As Worksheet
Set Quelle = ActiveWorkbook
Set Ziel = Workbooks.Add().Sheets(1)
For i = 1 To Quelle.Sheets.count
Ziel.Range("A" & i) = Quelle.Sheets(i).Name
Next
End SubGruß,
Maris
Anzeige