Excel bestand inlezen en plaatsen in nieuwblad

[ThecodeMaster]

Ik heb een Basis Excel bestand aangemaakt met daarin verschillende worksheets.
Elk worksheet bevat een opmaak van een rapport. Elk worksheet heeft ook een unieke naam.

Nu wil ik een macro maken wat het basisbestand uitleest en een worksheet naar keuze plaatst in een nieuw excel blad.

Op zich dacht ik dat het niet moeilijk was, maar ik kom er niet uit.

Wie kan mij tips geven om een richting aan te geven hoe ik dit het eenvoudigst kan aanpakken.

Werner

 

[ThecodeMaster]

Ik ben er uit.
Echter de kolom breedte wordt niet overgenomen.

De kolommen moet ik "handmatig" aanpassen. Of is er een andere methode?


' activeren werkblad LAYOUT
Workbooks(strTemplate).Activate
Workbooks(strTemplate).Sheets("Wijktotalen").Select
Columns("A:E").Select
Selection.Copy
' kopieren sjablonen
Workbooks(strBestandNaam).Activate
For intTeller = 1 To 7
Workbooks(strBestandNaam).Worksheets(intTeller).Activate
strSheetName = Workbooks(strBestandNaam).Worksheets(intTeller).Name
Workbooks(strBestandNaam).Sheets(strSheetName).Select
Columns("A:E").Select
ActiveSheet.Paste
Range("A1").Select
Next intTeller
' kolom breedte instellen
.Columns(1).ColumnWidth = 8
.Columns(2).ColumnWidth = 6
.Columns(3).ColumnWidth = 35
.Columns(4).ColumnWidth = 35
.Columns(5).ColumnWidth = 12
' sluiten werkblad Layout
Workbooks(strTemplate).Close

 

[snb]

Kopiëren kan 'iets' eenvoudiger:

Workbooks(strTemplate).Sheets("Wijktotalen").Columns("A:E").Copy Workbooks(strBestandNaam).sheets(Array("1","2","3","4","5","6","7")).Range("A1")

 

[ThecodeMaster]

snd,

Wanneer ik je code plaats in de macro krijg ik een foutmelding.
Fout 9, subscript valt buiten het bereik.

Heb jij een suggestie waar ik naar moet kijken.

Hieronder het stukje code
Select Case intKeuzeRapport
Case 1 ' wijk totalen

Workbooks(strTemplate).Sheets("Wijktotalen").Columns("A:E").Copy Workbooks(strBestandNaam).Sheets(Array("1", "2", "3", "4", "5", "6", "7")).Range("A1")


ter info
strTemplate = bron bestand met tabblad "Wijktotalen"
strBestandNaam = nieuw aan te maken bestand met de tabbladen xxxx (A:E)

Werner

 

[snb]

Het werkboek waarnaar gekopieerd wordt moet al bestaan.
Het werkboek waarnaar gekopieerd wordt moet de werkbladen ( 1 t/m 7) bevatten waarnaar gekopieerd moet worden.