Waarde bij invullen datum

[udo1967]

Vraagje:

In een bepaalde Cellen Rij komt een datum te staan.
Wanneer er een datum word ingevuld dan moet in de Cel ernaast
een vaste waarde komen te staan. Geen datum in Cel dan moet
de Cel leeg blijven, voorbeeld :

Datum in Cel F6 = 01-01-2008
dan word de Vaste Waarde in Cel H6 = 3
Geen Datum dan blijft Cel H6 leeg.

Hoe komt de formule er dan uit te zien ?

BVD,
Diana

 

[modbeek]

Bijvoorbeeld: =ALS(F6="";"";3)
(dit zou in jouw voorbeeld de formule in H6 kunnen zijn)

 

[bandito bob]

checken of er een datum in een cel staat zal lastig zijn, aangezien data in excel eigenlijk gewoon getallen zijn met een andere opmaak. Je zou kunnen checken of de datum(waarde) een geheel getal is.

Misschien kan je wel iets met valideren >> toegestaan: datum doen?

 

[robdgr]

=ALS(ISGETAL(F6)=ONWAAR;"geen getal";ALS(EN(F6>=B1;F6<=B2);3;"andere periode"))

Met in B1 de begindatum en in B2 de einddatum, bijvoorbeeld 1 januari en 31 december.

 

[Roncancio]

Je kunt een functie maken en deze in je bestand gebruiken.

Function IsDatum(rBereik As Range) As Boolean
If rBereik.Count = 1 Then
    If IsDate(rBereik) Then
        IsDatum = True
    End If
Else
    MsgBox "U kunt maar 1 cel selecteren.", vbExclamation, "Teveel cellen geselecteerd."
End If
End Function

De functie voeg je toe via:
- EXTRA - MACRO - VISUAL BASIC EDITOR
- INVOEGEN - MODULE


De formule wordt dan:

=ALS(isdatum(A1);3;"")

Met vriendelijke groet,


Roncancio

 

[snb]

=ALS(ISFOUT(DATUMWAARDE(TEKST(F6;"dd-mm-jjjj")));"";4)