Automatisch datum invullen

Stel hier je vraag over een Excel probleem
Robin
Berichten: 13
Lid geworden op: 30 sep 2020 20:34

Automatisch datum invullen

Bericht door Robin » 02 okt 2020 09:21

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
Berichten: 132
Lid geworden op: 30 apr 2019 15:15

Re: Automatisch datum invullen

Bericht door Ad Becude » 02 okt 2020 13:07

Kan je hier iets mee?
Bijlagen
Datum in A.xlsm
(13.56 KiB) 33 keer gedownload
Met vriendelijke groeten, Ad

Ad Becude
Berichten: 132
Lid geworden op: 30 apr 2019 15:15

Re: Automatisch datum invullen

Bericht door Ad Becude » 02 okt 2020 13:27

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
Met vriendelijke groeten, Ad

Robin
Berichten: 13
Lid geworden op: 30 sep 2020 20:34

Re: Automatisch datum invullen

Bericht door Robin » 03 okt 2020 09:30

Ad Becude schreef:
02 okt 2020 13:07
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
Berichten: 132
Lid geworden op: 30 apr 2019 15:15

Re: Automatisch datum invullen

Bericht door Ad Becude » 03 okt 2020 10:54

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.
Met vriendelijke groeten, Ad

Robin
Berichten: 13
Lid geworden op: 30 sep 2020 20:34

Re: Automatisch datum invullen

Bericht door Robin » 03 okt 2020 11:09

Ad Becude schreef:
03 okt 2020 10:54
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
Berichten: 132
Lid geworden op: 30 apr 2019 15:15

Re: Automatisch datum invullen

Bericht door Ad Becude » 03 okt 2020 12:36

Post de code die je nu hebt eens.
Laatst gewijzigd door Ad Becude op 03 okt 2020 13:56, 1 keer totaal gewijzigd.
Met vriendelijke groeten, Ad

Ad Becude
Berichten: 132
Lid geworden op: 30 apr 2019 15:15

Re: Automatisch datum invullen

Bericht door Ad Becude » 03 okt 2020 13:37

Ik denk dat het zo moet lukken, en ja de datum blijft staan als je het bestand op een latere datum opent.
Bijlagen
Datum in A_03102020.xlsm
(13.68 KiB) 26 keer gedownload
Met vriendelijke groeten, Ad

Robin
Berichten: 13
Lid geworden op: 30 sep 2020 20:34

Re: Automatisch datum invullen

Bericht door Robin » 03 okt 2020 14:04

Ad Becude schreef:
03 okt 2020 13:37
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
Berichten: 132
Lid geworden op: 30 apr 2019 15:15

Re: Automatisch datum invullen

Bericht door Ad Becude » 03 okt 2020 14:25

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
Met vriendelijke groeten, Ad

Plaats reactie