Actie na worksheet_change

[JanBG]

Hallo,

Ik heb een bestand waarin de standaard aanwezigheid van medewerkers per week wordt weergegeven. In het tabblad invoer kunnen medewerkers aangeven dat ze bij voorbeeld op vakantie zijn; dit komt dan automatisch in het bezettingsoverzicht. Nu wil ik dat als het jaar in het tabblad bezetting wordt veranderd, de inhoud van de invoer in het tabblad Invoer wordt verwijderd.

Ik heb deze code, maar die werkt niet:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Application.EnableEvents = False

    If (Target.Address = "$J$2") Then
        Sheets("Invoer").Select
        Range("D9:I374").Select
        Selection.ClearContents
    End If
        
    Application.EnableEvents = True
End Sub

Bekijk bijlage Aanwezigheid .xlsm

Iemand een suggestie?

groet, Jan

 

[SjonR]

Ja:

    If Target.Address = "$J$2" Then Range("D9:I374").ClearContents

 

[JanBG]

Sjon,

Dank voor de snelle reactie, het werkt alleen niet....:evil:

 

[SjonR]

excuus, sheet niet vermeld

If Target.Address = "$J$2" Then Sheets("Invoer").Range("D9:I374").ClearContents

 

[VenA]

Je moet eerst je Events weer op True zetten.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Target.Address = "$J$2" Then Sheets("Invoer").Range("D9:I374").ClearContents
End Sub

 

[JanBG]

Sjon,

Dank maar het werkt nog steeds niet.

@VenA: Events staan op True

 

[VenA]

Wat hebben we aan een opmerking als 'het werkt nog steeds niet'?

 

[SjonR]

Jan, onder welk blad zet je deze code? Ik hoop in het blad Bezetting.

 

[edmoor]

Dit werkt bij mij prima achter het blad Bezetting:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If (Target.Address = "$J$2") Then Sheets("Invoer").Range("D9:I374").ClearContents
End Sub

Edit:
Zie net dat VenA dat ook al had geplaatst.

 

[JanBG]

Tja, ik dacht dat het duidelijk was: namelijk de code doet nog steeds niet wat ie zou moeten doen en als ik begreep waaraan dat lag, zou ik er geen vraag over hebben gesteld

 

[edmoor]

In je voorbeeld document werkt het prima.

 

[JanBG]

Edmoor, Sjon,

Code staat onder blad bezetting, maar als ik een ander jaar kies in J2 (Blad bezetting) blijft inhoud van blad invoer gewoon staan

 

[JanBG]

Ik geloof het graag edmoor, maar ik heb die code in het voorbeeldbestand dat ik gepost heb gezet en dan werkt de code niet

 

[SjonR]

Post dan eens wat je nu hebt gedaan, wellicht dat we daaruit kunnen opmaken waar het mis gaat.

Heb je het nog steeds tussen Enable_events false en true staan trouwens?

 

[JanBG]

Graag

Bekijk bijlage Aanwezigheid .xlsm

Nee, staat niet tussen Enable_Events

 

[VenA]

Draai eerst deze code en probeer het dan nog eens.

Sub VenA()
  Application.EnableEvents = True
End Sub

 

[JanBG]

@VenA,

Dank, nu werkt de code wel. En ik maar denken dat Enable_Events op True stond

 

[snb]

En wat werkte er nu niet ?

 

[VenA]

Niet denken maar testen/controleren.:d

msgbox Application.EnableEvents

of in het venster immediate in de VB-Editor: ?Application.EnableEvents