Datum automatisch invoeren bij tekst in andere cel

[Debje19]

Goedemiddag,

Ik ben bezig met een excelbestand waarin de datum automatisch ingevuld moet worden als ik in een andere cel tekst zet.
Even voor het idee:

Bekijk bijlage Bezoekersreg nieuw.xlsx

Als ik dus cel C5 invul door middel van een 'dropdown' menu moet in cel H5 de datum komen te staan en in I5 de tijd (huidige).
Daarnaast als ik een X invul in cel J5 moet in cel K5 de datum komen en in L5 de tijd.

Weet iemand hoe ik dit voor elkaar krijg?
Ik heb namelijk wel losse formules gevonden om de huidige datum en tijd te krijgen maar niet in combinatie met iets invullen.
Het gaat trouwens om de 2010 versie van Excel en is Engels talig.

Alvast bedankt!!

 

[wieter]

Zo iets?
Code achter blad 1

Bekijk bijlage 192649

 

[Debje19]

Zo iets?
Code achter blad 1

Bekijk bijlage 192649

Ja! Dat bedoelde ik
Hoe heb je dat voor elkaar gekregen?

 

[wieter]

Druk Alt+F11, dan zie je een stukje VBA-code, die het gevraagde uitvoert.

 

[Debje19]

Druk Alt+F11, dan zie je een stukje VBA-code, die het gevraagde uitvoert.

Ik weet niet waarom, maar op de een of andere manier krijg ik een tabel op een nieuw tabblad te zien als ik op ALT+F11 druk.
En bovenin staat wel een formule maar als ik die kopieer en plak geeft hij een error aan.

 

[wieter]

Hieronder de code die achter blad 1 moet staan.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Einde
  If Target.Column = 3 Then
  If Target.Value <> "" Then
    Target.Offset(0, 5).Value = Date
    Target.Offset(0, 6).Value = Time
  Else: Target.Offset(0, 5).Value = ""
        Target.Offset(0, 6).Value = ""
  End If
  End If
  If Target.Column = 10 Then
  If Target.Value = "x" Then
    Target.Offset(0, 1).Value = Date
    Target.Offset(0, 2).Value = Time
  Else: Target.Offset(0, 1).Value = ""
        Target.Offset(0, 2).Value = ""

  End If
  End If
Einde:
End Sub

Post anders hier jou bestand (zonder gevoelige info), dan komt het wel ok.

 

[Debje19]

Hieronder de code die achter blad 1 moet staan.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Einde
  If Target.Column = 3 Then
  If Target.Value <> "" Then
    Target.Offset(0, 5).Value = Date
    Target.Offset(0, 6).Value = Time
  Else: Target.Offset(0, 5).Value = ""
        Target.Offset(0, 6).Value = ""
  End If
  End If
  If Target.Column = 10 Then
  If Target.Value = "x" Then
    Target.Offset(0, 1).Value = Date
    Target.Offset(0, 2).Value = Time
  Else: Target.Offset(0, 1).Value = ""
        Target.Offset(0, 2).Value = ""

  End If
  End If
Einde:
End Sub

Post anders hier jou bestand (zonder gevoelige info), dan komt het wel ok.

Ik heb het bestand toegevoegd

 

[wieter]

Hierbij.

Bekijk bijlage 192707