• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Werkblad met Worksheet_activate code invoegen

Status
Niet open voor verdere reacties.
A

alberto10

Gebruiker
Lid geworden
16 dec 2006
Berichten
182
Graag zou ik na het invoegen van een werkblad, ook direct een Worksheet_activate code invoegen met VBA. Ik heb onderstaande code gevonden op het internet, maar deze doet het niet.

Code: 
Sub Test()
Dim sht As Worksheet
Set sht = Sheets.Add
sht.Name = "NewSheet"
With ThisWorkbook.VBProject.VBComponents.Item(sht.CodeName).CodeModule
     .InsertLines 1, "Private Sub Worksheet_Activate()"
     .InsertLines 2, "Call Kopie"
     .InsertLines 3, "End Sub"
End With
End Sub

Op onderstaande regel loopt het mis :
With ThisWorkbook.VBProject.VBComponents.Item(sht.CodeName).CodeModule

Ik werk met Excel 2013.
 
Helaas krijg ik het alleen maar werkend d.m.v. F5.
Aan een shapeknop hangen of debuggen met F8 geeft de nodige foutmeldingen.
De knop "doorgaan" wil daarbij weer wel.

Code: 
Sub Test()
Dim sht As Worksheet
Set sht = Sheets.Add
sht.Name = "NewSheet"
  With ThisWorkbook.VBProject.VBComponents(sht.CodeName).CodeModule
    .InsertLines .CountOfLines + 1, "Private Sub Worksheet_Activate()" & vbCrLf & "'Call Kopie" & vbCrLf & "End Sub"
 End With
End Sub
 
Beste HSV,
Helaas werkt het bij mij niet met F5 of doorgaan. In alle geval toch bedankt voor de geboden hulp.
 
Sta je wel in Vba modus met de F5 ?
 
Jaja. Maar zoals in mijn eerste bericht vermeld werk ik met Excel 2013.
 
Heb je de Object Library aangevinkt ?


Naamloos.png
 
Via een omweg lukt het.
Voer code hsv() uit.
Er verschijnt een commandbutton op je nieuwe tabblad "NewSheet".
Klik hierop, nu staat je code in bladmodule "NewSteet".
Verwissel van blad, en de Worksheet_activate doet z'n werk.
 

Bijlagen

  • Code toevoegen aan nieuw werkblad.xlsm
    20,1 KB · Weergaven: 28
Beste HSV,
Bedankt voor de geboden hulp, maar helaas werkt het nog niet bij mij. Ik denk dat het te maken heeft met Excel 2013. Ik ben momenteel bezig om het op een andere manier op te lossen.
 
Waarom gebruik je niet het
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
event?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan