Makro maken in Excel 2007

[JO-GO]

Hallo

Graag wat hulp ivm een Makro die ik wil maken. Dit is wat ik wil doen.

Mijn document bevat 52 bladen (Sheet"Week01" - Week02" - enz) per blad een aantal regels met datum, waar iets doorgaat en een rij wat er die dag te gebeuren valt. Ik had nu graag een makro gemaakt om 5 rijen in te voegen met daarin een eerste vrije rij, dan "datum", dan "uur en plaats" daaronder "waar" en dan nog een vrije lijn.

Ik heb ook een blad gemaakt met daarin deze 5 rijen waar ik kan gaan kopiëren, die ik "Blokje" heb genoemd.

Mijn makro als volgt samegesteld:

- ga naar sheet "blokje" waar ik de vijf rijen kopieer.

- Dan ga ik terug naar het werkblad en de cel waar dit moet worden ingevoegd.

- gekopieerde cellen invoegen

So far so good maar als ik dit dan in een andere rij of ander blad doe, dan gaat dit niet.

De makro voegt weer op hetzelfde blad en op dezelfde rij de lijnen in.

Hoe kan ik dit verwezenlijken dat er op gelijk welke rij in gelijk welk blad de vijf lijnen invoegt.

Dank op voorhand

Sub blokjeInvoegen()

'

' blokjeInvoegen Macro

'

' Sneltoets: CTRL+SHIFT+B

'

ActiveWindow.ScrollWorkbookTabs Sheets:=41

Sheets("Blokje").Select

Rows("1:5").Select

Selection.Copy

ActiveWindow.ScrollWorkbookTabs Sheets:=-41

Sheets("Week07").Select

Selection.Insert Shift:=xlDown

End Sub

[RobbS]

Dag JO-GO,

Bedoel je zoiets ?

Sub blokjeInvoegen()

Vraag = InputBox("Welke week ?", "week ?", , 200, 200)

Sheets("Blokje").Select

Rows("1:5").Select

Selection.Copy

Sheets("Week" + Vraag).Select

Range("A1").Select

'Rows("1:1").Select

Selection.End(xlDown).Offset(1, 0).Select

Selection.Insert Shift:=xlDown

Application.CutCopyMode = False

End Sub