mehrere Datenblätter zusammenfügen
18.04.2005 18:06:15
Tina
habe folgendes Problem:
Ich habe 13 Excel-Files mit jeweils einem Datenblatt und würde gerne alle Datenblätter in ein neues File kopieren. Die Datenblätter haben alle ähnliche Namen.
Das mit dem neuen File erstellen und wie man jedes Datenblatt einzeln in das neue File kopiert hab ich noch hinbekommen, aber es wäre sicher besser wenn das mit ner Schleife oder so klappen würde (da die Namen ja ähnlich sind) - hab nur keine Ahnung wie!
Würd mich über Eure Hilfe freuen!
Gruß Tina
Hier mein bisheriger Code:
Sub AddNew()
Dim wb As Object
Application.DisplayAlerts = False
Application.ScreenUpdating = False
'Neues Workbook erstellen, unter entsprechendem Namen speichern, 1.Tabellenblatt umbenennen restliche löschen
Set wb = Workbooks.Add
wb.SaveAs Filename:="co-1994.xls"
Sheets(1).Name = "Jahre"
wb.Sheets(2).Delete
wb.Sheets(2).Delete
'Januar
Windows("co_0194.dat").Activate
Sheets("co_0194").Select
Sheets("co_0194").Copy After:=Workbooks("co-1994.xls").Sheets(1)
'Februar
Windows("co_0294.dat").Activate
Sheets("co_0294").Select
Sheets("co_0294").Copy After:=Workbooks("co-1994.xls").Sheets(2)
'März
Windows("co_0394.dat").Activate
Sheets("co_0394").Select
Sheets("co_0394").Copy After:=Workbooks("co-1994.xls").Sheets(3)
..... noch bis Dezember das gleiche
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Anzeige