Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 16 van 16

Onderwerp: invullen huidige datum en tijd

  1. #1
    Vraag is opgelost

    invullen huidige datum en tijd

    Ik kom er even niet meer uit, ik hoop op jullie hulp.

    Ik ben bezig met een excelbestand waarin de datum en de tijd automatisch ingevuld moet worden als ik in een andere cel tekst zet.

    Alvast bedankt voor jullie hulp!
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Welke ander cel en wat als je een getal invult? Het kan alleen met VBA en dan moet je wat specifieker zijn. Is overigens ook voldoende over te vinden hoe je het kan doen.
    Laatst aangepast door VenA : 23 februari 2021 om 00:46
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  3. #3
    Je zal wellicht dit niet bedoelen maar het is toch een voorbeeld van wat je misschien verwacht.
    Bijgevoegde bestanden Bijgevoegde bestanden
    Laatst aangepast door emields : 23 februari 2021 om 01:41 Reden: code aangepast

  4. #4
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Zeer waarschijnlijk niet.

    Code:
    .Offset(, 1) = Format(Now() + 10, "dd/mm/yyyy")
    3 mei lijkt mij niet de bedoeling.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  5. #5
    Bedankt voor jullie reactie.

    Wat ik wil is dat zodra ik de naam in de kolom( C ) heb ingevoerd ook als het een getal is, dan wordt de datum en de tijd automatische meegevoerd .

  6. #6
    zo dan?
    Bijgevoegde bestanden Bijgevoegde bestanden

  7. #7
    Mega Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Achter je werkblad 1

    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C:C")) Is Nothing And Target.Count = 1 Then Target.Offset(, 2).Resize(, 2) = Array(Date, Format(Time, "h:mm AM/PM"))
    End Sub
    Laatst aangepast door JVeer : 23 februari 2021 om 21:07
    Gr,
    JV

  8. #8
    Giga Senior
    Geregistreerd
    13 juni 2016
    Code:
    =als(isleeg(c3);" ";nu())
    Laatst aangepast door Senso : 23 februari 2021 om 21:33
    Desktop computer; Windows 10 Pro 64-bits; Versie 20H2; Build 19042.804;
    WFEP 120.2212.551.0; Intel(R) Core(TM) i7 CPU 950 @ 3.07 Ghz; RAM 12,0 GB;
    Intel SSD 180 GB; Office 2007 H&S

  9. #9
    Mega Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    @Senso, als je een berekening uitvoert of bijvb ergens op enter drukt, verandert de tijd weer in de huidige tijd.
    Daarom kan het alleen met VBA, waarmee je de datum en tijd hard in de cel schrijft.
    Gr,
    JV

  10. #10
    Giga Senior
    Geregistreerd
    13 juni 2016
    Jammer, ik dacht dat los jij even op. Maar goed, dat doe je ook.
    Desktop computer; Windows 10 Pro 64-bits; Versie 20H2; Build 19042.804;
    WFEP 120.2212.551.0; Intel(R) Core(TM) i7 CPU 950 @ 3.07 Ghz; RAM 12,0 GB;
    Intel SSD 180 GB; Office 2007 H&S

  11. #11
    Mega Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    😁😁

  12. #12
    Super bedankt !!!!! dit is exact wat ik wou

  13. #13
    Giga Senior
    Geregistreerd
    13 juni 2016
    Krijg de macro niet werkend. Ik vul in een naam in C6 en in E en F geen datum en tijd. Excel H&S 2007.
    Edit: sorry, fout gemaakt. Werkt nu wel.
    Laatst aangepast door Senso : 23 februari 2021 om 23:24
    Desktop computer; Windows 10 Pro 64-bits; Versie 20H2; Build 19042.804;
    WFEP 120.2212.551.0; Intel(R) Core(TM) i7 CPU 950 @ 3.07 Ghz; RAM 12,0 GB;
    Intel SSD 180 GB; Office 2007 H&S

  14. #14
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Column = 3 And Target.Count = 1 Then Target.Offset(, 2).Resize(, 2) = Array(Date, Time)
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  15. #15
    Giga Senior
    Geregistreerd
    13 juni 2016
    @JVeer
    One way that may work for you is to use a circular reference and enable iterative calculation.

    In Options select the Formulas tab and tick the Enable iterative calculation option.
    In cell B1 enter the formula: =IF(A1<>"",IF(B1="",TODAY(),B1),"") (it will return a blank)
    Format the cell as a date.
    Add a value to cell A1 - text saying "Date:" would be a good choice.
    The current date should appear in cell B1 and not update.
    Desktop computer; Windows 10 Pro 64-bits; Versie 20H2; Build 19042.804;
    WFEP 120.2212.551.0; Intel(R) Core(TM) i7 CPU 950 @ 3.07 Ghz; RAM 12,0 GB;
    Intel SSD 180 GB; Office 2007 H&S

  16. #16
    Mega Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    @Senso,
    Dat lijkt mij een onnodige omweg voor dit vraagstuk. Of je moet echt geen VBA willen gebruiken, tja dan raak je aan een oplossing als deze.
    Gr,
    JV

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren