Datumnotatie bij wegschrijven vanuit textbox

[allard1]

Hallo allemaal,

Ik heb een userform gemaakt waarmee gegevens worden weggeschreven naar sheet die vervolgens een berekening maakt en de gegevens terugstuurt. In de basis werkt het formulier helemaal te gek. Er is een klein irritant probleem en dat is de datums die worden weggeschreven.
Als ik de textbox 01-11-1985 schrijf dan wordt dit op de sheet 11-1-1985 (amerikaanse notatie) . Ik heb de format(date functie al geprobeerd maar misschien verkeerd. Heeft iemand een oplossing hoe dit is op te lossen ?

Groet,Allard

 

[Demeter]

Kijk hier eens naar, misschien heb je er wat aan:

Sub test()
Dim txbInvoerDatum As String
'ingevoerde datum komt vanuit input box met de naam: txbInvoerDatum
'Datum wordt weggeschreven naar A1 op het openstaande blad

txbInvoerDatum = InputBox("Vul datum in? vb 24-11-07", "Datum wegschrijven")

Range("A1") = Format(txbInvoerDatum.Value, "dd-mm-yyyy")

End Sub

 

[allard1]

Kijk hier eens naar, misschien heb je er wat aan:

Sub test()
Dim txbInvoerDatum As String
'ingevoerde datum komt vanuit input box met de naam: txbInvoerDatum
'Datum wordt weggeschreven naar A1 op het openstaande blad

txbInvoerDatum = InputBox("Vul datum in? vb 24-11-07", "Datum wegschrijven")

Range("A1") = Format(txbInvoerDatum.Value, "dd-mm-yyyy")

End Sub

Allereerst mijn excuses voor mijn late reactie. Door de komst van een puppy is de hele handel stil blijven staan. Dan nu een reactie Bedankt voor je reactie iig. Ik heb hem geprobeerd maar hij werkt niet...En ik denk dat ik weet waarom (de oplossing heb ik overigens niet ) Allereerst een stukje van mijn code zoals die wordt gehanteerd

Private Sub Cmdberekenen_Click()

ScreenUpdating = False

Dim Msg, Style, Title, Response, Mystring
    Style = vbYesNo + vbQuestion + Defaultbutton1
    Msg = "Heb je alle gegevens gevuld?"
    Title = "Vraag"
    
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    If Response = vbYes Then



'Basisgegevens
Sheets("Rekenblad").Range("B2").Value = txtnaam.Text
Sheets("Rekenblad").Range("b3").Value = Txtingangsdatum.Text
Sheets("Rekenblad").Range("b4").Value = txteinddatum.Text

Nu heb ik geprobeerd de door jou aangegevens code hier in te passen. Het werkt echter niet omdat ik een functie niet definieer. Ik denk dat hier mijn VBA beperking ook weer om de hoek komt. Format date ik heb alles geprobeerd.....beetje moedeloos wordt ik er van eigenlijk LOL

 

[Wigi]

Niet mijn beste code ooit maar probeer dit eens:

Private Sub Cmdberekenen_Click()

    Dim Msg As sring
    Dim Title As String
    Dim Response
    
    Msg = "Vul datum in? vb 24-11-07"
    Title = "Datum wegschrijven"
    
    Response = InputBox(Msg, , Title)
    
    If Len(Response) > 0 Then Sheets("Rekenblad").Range("B3").Value = Format(txbInvoerDatum.Value, "dd-mm-yyyy")
    
End Sub

Wigi

 

[Demeter]

Volgens mij moet je in Wigi zijn code:
txbInvoerDatum.Value vervangen door Response wil het gaan werken.

Kijk er vanavond nog wel even naar.

 

[Wigi]

Volgens mij moet je in Wigi zijn code:
txbInvoerDatum.Value vervangen door Response wil het gaan werken.

Volgens mij ook