• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Vandaag - formule

Status
Niet open voor verdere reacties.
F

frans kooijman

Gebruiker
Lid geworden
22 apr 2008
Berichten
517
Hi,

Moeilijke vraag misschien:
Ik heb in cel A1 de formule VANDAAG() staan, die uiteraard
de datum van vandaag geeft, zie de bijlage.

Nu wil ik dat als ik in cel A3 iets invul, dat dan in B3 de datum komt
te staan waarop ik A3 invul, dus vandaag, echter...B3 moet dan
deze datum vasthouden, dus niet meevarieren met A1

A1 verspringt uiteraard, maar B3 zou de datum moeten geven waarop
ik een actie doe van A3 doe.

Kan dat in Excel of moet ik dat toch handmatig invullen in B3....

Dank alvast!

Frans
 

Bijlagen

  • Excel VANDAAG.xlsx
    8,2 KB · Weergaven: 31
Frans,

selecteer B3
type ctrl + ;
en zie wat er in B3 komt te staan....

Dat is een snelle handmatig wijze van een datum invoeren, of niet...
 
Thanks, ja dat helpt, alleen is het dan nog niet gekoppeld aan de datum invoer van Cel A3,
dus moet ik nog steeds handmatig Ctrl + ; invoeren.
Ik zoek eigenlijk de mogelijkheid zodra ik een waarde in A3 invoer er dan CTRL + ; ingevoerd
wordt in B3.

Frans
 
Met een macro
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 And Target.Count = 1 Then Target.Offset(, 1) = Date
End Sub
 

Bijlagen

  • Excel VANDAAG.xlsb
    12,7 KB · Weergaven: 49
Hi VenA,

Ja, dit werkt perfect...maar ik heb geen kennis van VBA.
Heb wel de Macro tevoorschijn getoverd, maar nu in mijn "live" Excel
moet die datum komen als in Kolom I een vaste waarde "Yes" ingevoerd wordt.

Dus als bijvoorbeeld cel I45 de waarde Yes heeft, dan moet cel E45 de datum vandaag krijgen (en vasthouden).

Hoe zet ik Kolom I èn de waarde "yes" in de macro?

Sorry....

Frans
 
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 9 And Target.Count = 1 Then
    If LCase(Target.Value) = "yes" Then Target.Offset(, -4) = Date
  End If
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan