Automatisch datum invullen

[Robin]

Goedemorgen allen,

Ik zou graag willen weten hoe ik automatisch de datum van vandaag in cel A1 kan krijgen wanneer ik in cel B1 een belaald woord bijvoorbeeld "werken" invul. De datum moet wel hetzelfde blijven en dus niet de volgende dag verspringen naar de huidige datum. Het betreft overigens elke keer wanneer het woord "werken" in kolom B wordt ingevoerd dat de datum in kolom A automatisch wordt ingevuld.

[Ad Becude]

Kan je hier iets mee?

[Ad Becude]

Wil je de tijdnotatie als: 15:30 wijzig de code dan in:

Code: Selecteer alles

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 and Target.value "werk" Then Target.Offset(, -1).Value = Format(Time, "hh:mm")
End Sub

[Robin]

Kan je hier iets mee?

Dag Ad,

Bedankt voor je reactie.
Ik wilde eigenlijk graag weten hoe de datum automatisch wordt ingevuld.

Ik ben helemaal niet thuis in macro's. Waar voer je dit precies in?

[Ad Becude]

Robin,
Klik met rechts op je Bladtab: Kies voor Programmacode weergeven, en plak de code in het grote vak. sluit de VBA omgeving af en sla je bestand op als .xlsm bestand.

[Robin]

Robin,
Klik met rechts op je Bladtab: Kies voor Programmacode weergeven, en plak de code in het grote vak. sluit de VBA omgeving af en sla je bestand op als .xlsm bestand.

Dag Ad,

Het is mij inmiddels gelukt om de tijd te veranderen in datum.
Ik heb er nog 2 vragen over. Als ik het woord "werk" weg haal dan blijft de datum staan. Is het mogelijk dat wanneer ik het woord "werk΅ weg haal dat dan ook de datum weg gaat?
Als laatste: blijft de datum wel hetzelfde? Veranderen de datums niet automatisch wanneer je het bestand de dag erna opent naar de huidige dag?

[Ad Becude]

Post de code die je nu hebt eens.

[Ad Becude]

Ik denk dat het zo moet lukken, en ja de datum blijft staan als je het bestand op een latere datum opent.

[Robin]

Ik denk dat het zo moet lukken, en ja de datum blijft staan als je het bestand op een latere datum opent.

Als ik dit invoer en ik probeer het dan krijg ik de melding: Compileerfout: Er wordt End Sub verwacht

[Ad Becude]

Klopt, tik onder de code als laatste regel End sub
Voor de zekerheid:

Code: Selecteer alles

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
  If Target.Column = 2 And Target.Value = "werk" Then Target.Offset(0, -1) = Date
If Target.Column = 2 And Target.Value = "" Then Target.Offset(0, -1) = ""
End sub