kann man den Datei bzw Tabellename in eine spalte schreiben lassen ?
Das Workbook enthält nur eine Tabelle, diesen Namen welcher auch gleich der Dateiname ist möchte ich gerne in Spalte Q2:Ende kopieren.
Sheets(1).Name = x
Range("Q2").Select
ActiveSheet.Paste
Selection.Copy
Range("Q3", Cells(Rows.Count, 1).End(xlUp).Offset(1, 17)).Select
ActiveSheet.Paste
so hatte es mir mit ein wenig abwandlung der Aufzeichner ausgespuckt.
geht aber nicht da er schon bei Sheets(1) meckert.
was noch hilfreich wäre, in einem bestimmten ordner stehn mehrere Datein bei den das alles gemacht werden soll, gibt es eine möglicht diese vorgang zu automatisieren.
1. Datei öffnen
2. der code von oben
3. Datei Speichern
4. Nächste Datei Öffnen
gruss und danke Wink