• 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.

Automatisch de datum zichtbaar maken bij wijzigingen

  • Onderwerp starter Onderwerp starter HJ25
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

HJ25

Gebruiker
Lid geworden
30 jan 2013
Berichten
304
Ik wil graag dat wanneer er aanpassingen gedaan worden aan bijvoorbeeld cel A1, dat de datum waarop deze aanpassing gedaan is in cel A2 komt te staan. Is dit mogelijk, zo ja hoe? En wordt de datum dan ook aangepast wanneer cel A1 opnieuw aangepast wordt?
Ik gebruik nu nog Excel 2003 maar ga binnenkort over naar Excel 2010. Het liefst de oplossing voor beide versies, maar die voor Excel 2010 is het belangrijkst!
 
Laatst bewerkt:
Kun je oplossen met VB Code

Op een van de excel forums vond ik bijgaand script dat werkt in mijn geval (Excel 2010).

Rechtermuistoets op het tabblad waar je het wilt - 'View Code' en vervolgens bijgaande code invoegen.

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_Range As String = "A:A" ' <<< set your range
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim iRow As Integer
Dim Today
Today = Now
On Error Resume Next
If Not Intersect(Target, Me.Range(WS_Range)) Is Nothing Then
iRow = Target.Row
With ActiveSheet
Range("B" & iRow).Value = Today
End With
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub reset()
 
Kun je oplossen met VB Code

Op een van de excel forums vond ik bijgaand script dat werkt in mijn geval (Excel 2010).

Rechtermuistoets op het tabblad waar je het wilt - 'View Code' en vervolgens bijgaande code invoegen.

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_Range As String = "A:A" ' <<< set your range
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim iRow As Integer
Dim Today
Today = Now
On Error Resume Next
If Not Intersect(Target, Me.Range(WS_Range)) Is Nothing Then
iRow = Target.Row
With ActiveSheet
Range("B" & iRow).Value = Today
End With
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub reset()


Als ik rechtermuistoets klik op het tabblad waar ik het wilt en dan op "Programmacode weergeven" (ik neem aan dat je dat bedoelt) dan krijg ik een grijs scherm. Zou je misschien stapsgewijs kunnen vertellen wat ik precies moet doen? Ik ben niet zo goed met excel dat ik dit begrijp... sorry!
 
Sorry, voor Nederlandse versie is het inderdaad "Programmacode invoeren"

In welke versie ben je aan het testen (2003, of 2010 ?)

Als ik dat in Excel 2010 krijg ik bijgaand scherm:
excel.jpg

In het rechterdeel v/h scherm (in jouw geval zal het er mogelijk iets anders uitzien - ik heb engelse versie van Excel 2010)

- Klik op pijltje naast "(General") en selecteer je "Worksheet"
- Op het pijltje naast "(Declarations") kies je change (wijziging in jouw geval)
- Plak vervolgens de code in het scherm daaronder
- Nu kun je testen ...
 
Sorry, voor Nederlandse versie is het inderdaad "Programmacode invoeren"

In welke versie ben je aan het testen (2003, of 2010 ?)

Als ik dat in Excel 2010 krijg ik bijgaand scherm:
Bekijk bijlage 175006

In het rechterdeel v/h scherm (in jouw geval zal het er mogelijk iets anders uitzien - ik heb engelse versie van Excel 2010)

- Klik op pijltje naast "(General") en selecteer je "Worksheet"
- Op het pijltje naast "(Declarations") kies je change (wijziging in jouw geval)
- Plak vervolgens de code in het scherm daaronder
- Nu kun je testen ...

Jaaaa! Dat zocht ik! (Wel behoorlijk ingewikkelde manier om dit voor elkaar te krijgen maar ja...) Bedankt!!
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan