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
Dabei sollten jeder Tabellenname in Gänsefüßchen stehen und durch ein Komma getrennt werden...
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 Sub
Wer kann helfen?Gruß,
Maris