Revolutionary
Gebruiker
- Lid geworden
- 1 apr 2009
- Berichten
- 183
Goedemiddag helpers,
Ben een tijdje afwezig geweest, heb niet veel in Excel kunnen sleutelen, ik heb zelfs nog 2 vragen op onopgelost staan geloof ik
daar ga ik deze of volgende week weer even mee verder.
Ik heb nu een vraag over de Worksheet_Change functie in VBA. Als er een cel wijzigt wil ik dat er in de kolom ernaast de tijd en datum komt te staan van wijziging. Dat werkt prima als iemand zelf een cel wijzigt, maar als de cel wordt gewijzigd doordat deze gekoppeld staat met een andere cel dan werkt deze functie niet. Ter verheldering: ik heb bijvoorbeeld in B3 een ALS-functie staan, waarvan de uitkomst afhankelijk is van de waarde in een ander excelbestand. Als de waarde in B3 wijzigt dan wordt de datum en tijdstip in de kolom ernaast niet aangepast.
De worksheet_change ziet er als volgt uit:
Gebruik ik de verkeerde functie? Of moet de code misschien iets aangepast worden?
Alvast bedankt voor jullie hulp!
Tim
Ben een tijdje afwezig geweest, heb niet veel in Excel kunnen sleutelen, ik heb zelfs nog 2 vragen op onopgelost staan geloof ik

Ik heb nu een vraag over de Worksheet_Change functie in VBA. Als er een cel wijzigt wil ik dat er in de kolom ernaast de tijd en datum komt te staan van wijziging. Dat werkt prima als iemand zelf een cel wijzigt, maar als de cel wordt gewijzigd doordat deze gekoppeld staat met een andere cel dan werkt deze functie niet. Ter verheldering: ik heb bijvoorbeeld in B3 een ALS-functie staan, waarvan de uitkomst afhankelijk is van de waarde in een ander excelbestand. Als de waarde in B3 wijzigt dan wordt de datum en tijdstip in de kolom ernaast niet aangepast.
De worksheet_change ziet er als volgt uit:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
'Datum laatste wijziging
If Not Intersect(Target, Range("b3:b40")) Is Nothing Then
Target.Offset(, 2).Value = ""
Target.Offset(, 2).Value = Now
End If
If Not Intersect(Target, Range("c3:c40")) Is Nothing Then
Target.Offset(, 1).Value = ""
Target.Offset(, 1).Value = Now
End If
End Sub
Gebruik ik de verkeerde functie? Of moet de code misschien iets aangepast worden?
Alvast bedankt voor jullie hulp!
Tim