formule in textbox

[ruva]

beste excelliefhebbers

is het mogelijk om een formule in een textbox te zetten
bv =today() zodat in de tekstbox de datum komt te staan

Ik hoor het graag van jullie

groetjes ruva

 

[sylvester-ponte]

hallo ruva

bv

Private Sub TextBox1_GotFocus()
    With TextBox1
        If .Text = "" Then .Text = Now()
    End With
End Sub

groet sylvester

 

[ruva]

Goedeavond Sylvester
bedankt voor je reactie, het werkt gedeeltelijk
ik moet eerst in de textbox klikken wil de datum verschijen, eigenlijk wil ik de datum in de textbox hebben zonder te klikken, en de tijd staat achter de datum, dit wil ik in principe ook niet.

verder heb ik nog een textbox nodig met een formule erin, die er voor zorgt dat iedere keer ik de excelsheet opent, een nieuw ordernr krijgt, de formule heb ik wel, alleen hoe zit ik deze in de textbox
Range("a10").Value = Range("A1").Value
Range("A1").Value = Range("A1").Value + 1
ActiveWorkbook.Save

je ziet toch nog een aantal vragen, ik hoop dat je mij er hiermee kunt helpen

groet Ruva

 

[HSV]

Probeer deze eens ruva.

In ModuleBlad1:

Private Sub TextBox1_GotFocus()
   TextBox1.Value = Date
End Sub

Private Sub TextBox2_GotFocus()
  With TextBox2
   If .Value = "" Then
    .Value = 1
  Else
   .Value = .Value + 1
  End If
 End With
End Sub

In ThisWorkbook:

Private Sub Workbook_Open()
 With Sheets("Blad1")
 .TextBox1.Activate
 .TextBox2.Activate
 End With
End Sub

 

[ruva]

textbox leegmaken

Beste harry,

het werkt top, bedankt hiervoor,
nog een vraagje, ik heb een button "archief" waarin ik hierop klik, gaat de data van de textboxen naar een sheet "archief" dit werkt ook perfect.

Mijn volgende vraag is:
wanneer ik op die button klik en de data wordt gearchiveerd, moeten tegelijktijd de textboxen leeg worden gemaakt,
is hier ook een oplossing voor

ik hoor het graag

 

[Roncancio]

Voeg onderaan de macro van de Archief-button:

TextBox1.Value = ""
TextBox2.Value = ""

Met vriendelijke groet,


Roncancio

 

[ruva]

textbox

heren,

bedankt voor de wat latere reactie, het goede nieuws is, het werkt
hartelijk dank hier voor