datumhulpje

[Willem Blaas]

geacht forum,

ik heb in een formulier div txt-velden waar ik info in moet voeren en welke daarna weggeschreven worden, het werkt perfect.

nu is er een txt-veld bij waar meestal de huidige datum ingetypt moet worden maar niet altijd

vraag : kan ik (mss bij eigenschappen van het veld) in dit veld de datum van vandaag al neer laten zetten in het formulier met de mogelijkheid dit te kunnen overschrijven (als ik het bv een dag later als vandaag invul) , dus als er de datum van vandaag moet staan alleen een enter geven en naar de volgende tab.

of moet dit mss bij DIM als een soort "set" opdracht ?

bij voorbaat dank

met vr groet willem blaas

 

[Roncancio]

Dat kan o.a. bij het initiëren van de userform.

Private Sub UserForm_Initialize()
TextBox1.Value = Date

End Sub

Met vriendeliijke groet,


Roncancio

 

[Willem Blaas]

Dat kan o.a. bij het initiëren van de userform.

Private Sub UserForm_Initialize()
TextBox1.Value = Date

End Sub

Met vriendeliijke groet,


Roncancio

ga ik proberen , bedankt

werkt perfect, bedank

 

[wiki]

Als je onderstaande kopieert naar this workbook dot de code wat jij vraagt. Verdient niet de schoonheidsprijs, maar werkt wel.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range("a1") <> "" Then

Range("A1").Copy
Range("a1").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    End If
End Sub



Private Sub Workbook_Open()
  If Range("a1") = "" Then
    Range("A1").FormulaR1C1 = "=TODAY()"
    End If
End Sub

 

[Willem Blaas]

ga ik proberen , bedankt

werkt, bedankt

 

[wiki]

Roncancio was me voor, had textveld niet juist geinterpreteerd