subroutine kopiëren

[computerfreak08]

Momenteel heb ik een excel werkmap met 1 blad.
Als ik een nieuwe pagina aanmaak (via vba) had ik graag dat een subroutine uit het 1ste bald mee in dit nieuwe bald terechtkomt.

Iemand enig idee hoe ik, dit voor mekaar krijg ?

Dit is de code die ik in het nieuwe blad wil plaatsen :

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A1:M25")) Is Nothing Then

Exit Sub
Else
BerekenLoon
End If

End Sub

 

[Wigi]

Op het niveau van het workbook (bestand) heb je ook een Change event. Bij de code van ThisWorkbook kan je bijvoorbeeld een Workbook_SheetChange event gebruiken.

 

[computerfreak08]

Bedankt voor het snelle antwoord Wim.

Maar als ik nu meerdere bladen heb en dit niet op alle werkbladen wil uitvoeren ?
Ik weet niet op voorhand hoeveel bladen het zijn en wat de naam van elk blad is, aangezien de bladen worden aangemaalkt op basis van de gegevens die de gebruiker ingeeft.

Groeten,

Nour Din.