Cellen vullen met datum nadat naastgelegen cel is gewijzigd

[radegroot]

Goedenavond,

Helaas ben ik nog niet zo'n vba-guru, maar wil dit wel graag verder leren.

Ik heb een sheet waarin in kolom A per cel "gewonnen", "verloren" of "anders" gezet kan worden. Zodra "gewonnen" of "verloren" wordt gekozen, moet in de aanpalende cel de datum now() worden gezet.

Zelf had ik al dit "bedacht"

Sub workbook_Open()
If Range("H37").Value = "Lost" Then Range("I37").Value = Date
If Range("H37").Value = "Won" Then Range("I37").Value = Date
If Range("H38").Value = "Lost" Then Range("I38").Value = Date
If Range("H38").Value = "Won" Then Range("I38").Value = Date
End Sub

maar dan ben ik wel een tijdje zoet om tot cel 250 te komen

Daarnaast gebeurt de wijziging niet automatisch, maar door het handmatig activeren van de macro.

Kan/wil iemand mij helpen?
Bekijk bijlage Map2.xlsx
Gr.Raymond

 

[Thankyou]

Nou is VBA absoluut niet mijn ding, maar deze code heb ik ooit eens geleend en komt een aardig eind in de richting. Hij zet de datum in kolom B als er in A2:A100 iets veranderd.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
        Target.Offset(, 1).Value = Date
     End
    End If
End Sub

Succes,

 

[Cobbe]

Deze zou toch in die richting moeten gaan:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("A5:A255")) Is Nothing Then Exit Sub 
    If Selection.Cells.Count > 1 Then Exit  Sub
      If Target = "Gewonnen" Or Target = "Verloren" Then
         Target.Offset(0, 1) = Date
      End If
End Sub

 

[radegroot]

Dank voor jullie codes, die van Cobbe houdt ook rekening met de gekozen veldwaarde dus die heb ik geprobeerd. Ik heb de code geplakt in VBA, maar er gebeurt vervoglens niets in m'n werkblad... doe ik iets verkeerd?

 

[Cobbe]

U hebt de code op de verkeerde plaats gezet, in ThisWorkbook.
Deze moet in het blad van gebeuren staan, in dit geval Blad1.

 

[radegroot]

Bedankt, het werkt!!!