Datum uit Textbox omzetten naar datumwaarde

[Ad Becude]

Hoi hoi,

Ik heb een probleem met het omzetten van de datum uit een Textbox naar Datumwaarde.
In de bijlage "werkend voorbeeld" gaat het wel, maar in het originele bestand "afspraken test" krijg ik dit niet voor elkaar.
In beide staat hiervoor hetzelfde stukje code.

 

[edmoor]

Wat gaat er bij jou niet goed in Afspraken_test?
Werkt hier prima.

 

[HSV]

Range("A" & rij) = CDate(TextBox1)

 

[Ad Becude]

@edmoor,
Bij mij in Afspraken test wordt 09-01-18 (9 jan 18) omgezet naar za-01-sept
@Harry,
Ik ga dit eens uitproberen, en laat nog van mij horen.

Beide bedankt voor de respons

 

[edmoor]

Doet het hier goed maar het wordt wel als tekst weg geschreven.
Dat los je in ieder geval op met de suggestie van Harry.
Heb je een NL en ENG Office installatie?

 

[Ad Becude]

@edmoor,
Ik heb een NL office 2010
In kolom A komt het in tekst, en in B zou het als datumwaarde moeten.
Zie in "werkend voorbeeld", waar het wel werkt
@Harry,
Jou suggestie doet bij mij niets, zet zelfs de datum niet meer in kolom A

 

[HSV]

Heb je wel goed gekeken na de sorteer actie?
Cdate en Datevalue zijn de juiste functies daarvoor.

 

[VenA]

Ik zou beginnen met een beetje structuur in de code. Om te beginnen inspringpunten voor de leesbaarheid en proberen om alles wat steeds terugkomt in een lus te vangen. Onderstaande code kan eenvoudiger en ook zijn er controles in te bouwen of bv TextBox1 wel een geldige datum bevat maar je moet natuurlijk ook zelf wat te ontdekken hebben:d

Private Sub CommandButton1_Click()
Dim j As Long, ar
  ar = Array("datum", "Tijd", "Reden", "Locatie", "Route", "Bijzonderheden")
  For j = 0 To 5
    If Me.Controls("TextBox" & j + 1) = "" Then
      Select Case j
        Case 0
          MsgBox ar(j) & " is verplicht", vbCritical
          Me.Controls("TextBox" & j + 1).SetFocus
          Exit Sub
      Case 1 To 5
        If MsgBox(ar(j) & " is niet ingevuld is dit ok?", vbYesNo, ar(j)) = vbNo Then
          Me.Controls("TextBox" & j + 1).SetFocus
          Exit Sub
        End If
      End Select
    End If
  Next j
  
  With Sheets("Blad1")
    .Range("A47").End(xlUp).Offset(1).Resize(, 7) = Array(CDate(TextBox1.Value), CDate(TextBox1.Value), TextBox2.Value, TextBox3, TextBox4, TextBox5, TextBox6)
    .Range("A9:G46").sort .[A9], , , , , , , xlYes
  End With
  
  For j = 1 To 6
    Me.Controls("TextBox" & j) = ""
  Next j
  TextBox1.SetFocus
End Sub

 

[Ad Becude]

@Harry,
Er stonden nog wat formules in Kolom B en dat was de boosdoener. Kolom A heb ik niet meer nodig, dus de codes wat dat betreft ook aangepast.
En alles werkt perfect.
@VenA,
Bedankt voor je bijdrage, ga het zeker uitproberen.

Allen bedankt.