Datum in cel na plaatsen vinkje

[smnijland]

Hallo,

Ik heb een probleempje :d

Een gebruiker heeft een vinkje geplaatst in C4, E4 geeft dan de waarde "WAAR" (bij geen vinkje is de waarde "ONWAAR") Simpel.
De tekst welke in de cel na het vinkje staat wordt rood na het plaatsen van het vinkje (en de waarde "WAAR" van E4).

Nu is de bedoeling dat na het plaatsen van het vinkje in cel C4, in cel F4 de datum wordt geplaatst en deze vast blijft.
Ik ben al met formules =NU() e.d. aan het knoeien geweest, gaat niet (volgens mij). Ben bang dat het via VBA moet.
Ik had al e.e.a. gevonden op dit forum, maar ik kom er niet uit.

Mogelijk dat iemand mij hier mee kan helpen :thumb:

Gr.

 

[OctaFish]

Simpel macrootje aan het selectievakje hangen:

Sub Selectievakje1_Klikken()
    If Cells(4, 5).Value = "Waar" Then
        Cells(4, 6).Value = Date
    ElseIf Cells(4, 5).Value = "Onwaar" Then
        Cells(4, 6).Value = Null
    End If
End Sub

 

[smnijland]

Super bedankt voor je snelle bericht! :thumb:

Ik ga er direct mee aan de gang. Ben niet thuis in Macro's en VBA. Maar hou wel van een uitdaging.

Gr.

 

[smnijland]

Sorry ...... werkt niet. Zal wel aan mijn onkunde liggen.

Ik ga op de cel van het vinkje staan. Ik staat de macro op en plak jouw code erin en dan doet ie niks

Zal wel iets verkeerd doen!

Gr.

 

[OctaFish]

Je moet rechtsklikken op het selectievakje, dan kies je uit het snelmenu <Macro toewijzen>, dan Nieuwe macro en dan plak je daar de code tussen de regels Sub en End Sub.

 

[OctaFish]

Hier de uitwerking.

 

[YdieresiS]

Inmiddels ingehaald door de tijd OctaFish heeft een betere uitleg geschreven dan ik.

 

[smnijland]

Ik zit nu op mijn werk en mijn werkgever heeft het downloaden van excel bestanden met daarin macro's geblokkeerd.
Ga het vanavond thuis proberen.

Bedankt voor de reactie's !! :thumb:

 

[smnijland]

Het werkt! Dank.

Ik heb ook nog wat andere dingen waar ik niet uit kom maar hier zal ik een nieuwe topic voor opstarten

Nogmaals dank! :thumb:

 

[popipipo]

Ik denk dat je "waar" en "onwaar" beter kunt veranderen in TRUE en FALSE dan werkt het in alle taalversies van excel.

 

[VenA]

Bij werkt het niet. Het is onlogisch om een boolean als tekst te zien. Daarnaast is de code nogal omslachtig.

Zo werkt het in alle talen al zou ik helemaal geen vinkvakjes gebruiken.

Sub VenA()
  Cells(4, 6).Value = IIf(Cells(4, 5), Date, "")
End Sub

[Edit] Zoals ook door @popipipo aangegeven is.