Wijzingen bijhouden in een excelblad

[tkint]

Beste,

Uit de antwoorden op een eerder gestelde vraag heb ik begrepen dat die functie in excel 2016 niet voorzien is. Ik heb met de volgende code iets in elkaar geknutseld maar de subroutine wordt reeds uitgevoerd bij het aanklikken van een cel. Hoe moet de code aangepast worden zodat de code pas uitgevoerd wordt na een wijziging van de waarde in een cel?

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name = "complete lijst" Then Cells(Target.Row, 15) = Cells(Target.Row, 15) & " ! wijziging in kolom " & Target.Column
End Sub

 

[edmoor]

Doe dat dan in:

Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

 

[tkint]

Beste,

Door het feit dat cel (Target.row,15) ook wijzigt krijgt in die rij een ellenlange tekst in die cel. Hoe kan je dat vermijden? Je kan iets uitschakelen, maar wat?

 

[AD1957]

Probeer dit eens.

in het tabblad complete lijst

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B,I:I,K:K")) Is Nothing Then
    Cells(Target.Row, 15) = Cells(Target.Row, 15) & " ! wijziging in kolom " & Target.Column
End If
End Sub

 

[tkint]

Beide edmoor en Albert,

Bedankt voor de oplossing. Ik ben in mijn bedoeling geslaagd. De instructie Not Intersect heb ik nog niet onder de knie. Met oefenen en ze gebruiken lukt het welk.

 

[VenA]

Je kan beter gebruik maken van Application.EnableEvents = False en weer aanzetten met = True.

 

[tkint]

@ VenA,
Daar dacht ik aan maar waar plaats ik de 2 instructies? Onmiddelijk na de if-instuctie?

 

[AD1957]

Zo?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B,I:I,K:K")) Is Nothing Then
    Application.EnableEvents = False
    Cells(Target.Row, 15) = Cells(Target.Row, 15) & " ! wijziging in kolom " & Target.Column
End If
   Application.EnableEvents = True

End Sub

@ VenA, Ik kan van alles vinden over Application.EnableEvents.
Maar mijn "engels" is niet zo best. Enige uitleg in Nederlands zou bij mij welkom zijn

 

[AD1957]

Toch maar even het woordenboek erbij gepakt, is me nu duidelijk wat VenA bedoelde.
Het ging om de vraag in #3

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
If ActiveSheet.Name = "complete lijst" Then
    If Target.Column = 2 Or Target.Column = 9 Or Target.Column = 11 Then
     Cells(Target.Row, 15) = Cells(Target.Row, 15) & " ! wijziging in kolom " & Target.Column
    End If
End If
Application.EnableEvents = True
End Sub

Mijn antwoord in #8 is een beetje onzinnig

 

[tkint]

Beste,

Ik probeer deze avond de code uit. Bedankt en ik hou je op de hoogte.

 

[tkint]

Beste,

Ik probeer deze avond de code uit. Bedankt en ik hou je op de hoogte.

 

[tkint]

Beste,

Werkt prima. Bedankt.