Registriert seit: 15.05.2019
Version(en): 2010
15.05.2019, 16:54
(Dieser Beitrag wurde zuletzt bearbeitet: 15.05.2019, 17:19 von MWCN.)
Vielleicht kann mir jemand helfen
Aus vielen Exceldateinen eine Exceldatei machen
Der Inhalt der zusammen gefügt werden soll befindet sich in Tabelle 3 "Statistik " Position = B4:J4 Dateityp: .xlsm
Ich möchte alle Dateien in eine Tabelle zusammengefügt haben.
Gruß Mathias
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Hi,
einmal sprichst du von Ordnern, dann wieder von Dateien. Beschreibe bitte konkret, was du machen willst.
Registriert seit: 15.05.2019
Version(en): 2010
OK
Ich habe einen Ordner in dem viele Exceldateinen sich befinden und die alle gleich aufgebaut sind .Ich möchte das diese in eine Tabelle zusammengefügt werden ( der Inhalt ).
Registriert seit: 27.12.2018
Version(en): 2003,2010
15.05.2019, 17:19
(Dieser Beitrag wurde zuletzt bearbeitet: 15.05.2019, 17:20 von mmat.)
Hallo
das ist eine simple Sache, das folgende VBA-Makro sollte es tun (wenn auch nicht unbedingt besonders schnell)
Code:
Sub transfer()
Dim s As String, p As String, r As Long
Dim tw As Workbook, ts As Worksheet
p = "c:\PfadZuDenDateien\" 'anpassen, \ am Ende nicht vergessen
tw = thisworkbook
ts = tw.Worksheets.Add
r = 1
s = Dir(p + "*.xlsm", vbNormal)
While s <> ""
ts.Cells(r, 1) = s
Workbooks.Open p + s
Worksheets("Statistik ").Range("B4:J4").Copy ts.Cells(r, 2)
ActiveWorkbook.Close False
r =r + 1
s = Dir()
Wend
End Sub
vg, MM
![[-]](https://www.clever-excel-forum.de/images/collapse.png)
Folgende(r) 1 Nutzer sagt Danke an mmat für diesen Beitrag:1 Nutzer sagt Danke an mmat für diesen Beitrag 28
• MWCN
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Hi,
hilft dir das weiter?
http://www.herber.de/excelformeln und bitte suchen .../formeln.html?welcher=126
Registriert seit: 15.05.2019
Version(en): 2010
Hallo
vielen Dank
Er zeigt mir einen Fehler an " Objektvariable oder With-Blockvariable nicht festgelegt tw = ThisWorkbook
00202
Nicht registrierter Gast
Hallo, :19:
Objektvariable musst du mit "
Set" belegen: :21:
Code:
Set tw = ThisWorkbook
Set ts = tw.Worksheets.Add
Folgende(r) 1 Nutzer sagt Danke an Gast für diesen Beitrag:1 Nutzer sagt Danke an Gast für diesen Beitrag 28
• MWCN
Registriert seit: 15.05.2019
Version(en): 2010
Großen Danke
Jetzt funktioniert es , jetzt kann ich mit arbeiten .
Danke Danke
Registriert seit: 27.12.2018
Version(en): 2003,2010
Sorry, es war gestern schon reichlich spät. Da kann solch ein Flüchtigkeitsfehler wie ein vergessenes "Set" schonmal vorkommen ...
Registriert seit: 15.05.2019
Version(en): 2010
17.05.2019, 07:43
(Dieser Beitrag wurde zuletzt bearbeitet: 17.05.2019, 08:05 von MWCN.)
Eine Frage habe ich noch.
Was muss ich ändern, wenn ich eine Zeile tiefer auch noch kopieren möchte also (B4:J4 und B5:J5 ) ?
Ich hab schon selbst nach einer Lösung gesucht,aber für mich ohne Kenntnisse nicht machbar
