Dag en maand worden verwisseld.

[Labcalimet]

Ik heb een probleem bij het plaatsen van tekst na een datum.

Een togglebutton plaatst 2 sterretjes achter een ingegeven datum als de knop is ingedrukt.
Bij het nogmaals drukken op de knop worden de steretjes verwijderd.
Het probleem doet zich voor als de sterretjes worden verwijdert.
De dag en maand worden dan verwisselt.
1/02/2010 wordt dan 2/01/2010
Hoe is dit probleem op te lossen? Ik werk met excel 2003.

Private Sub knop_Click()
If knop = True Then
Me.Range("b14").Value = Me.Range("b14").Text & " **"
End If

If knop = False Then
Me.Range("b14").Value = Left(Me.Range("b14").Text, Len(Me.Range("b14").Text) -3)
End If
End Sub

MVG,
Jonas

 

[Hoornvan]

Labcalimet,

Ik heb de code gebruikt en het werkt normaal.
Ik gebruik Office 2007 of dit wat uitmaakt weet ik niet.

Private Sub ToggleButton1_Click()
 If ToggleButton1 = True Then
  Me.[B14].Value = Me.[B14].Value & " **"
 End If

 If ToggleButton1 = False Then
  Me.[B14].Value = Left(Me.[B14].Value, Len(Me.[B14].Value) - 3)
 End If
End Sub

De volgende keer als je weer code plaatst, dan graag de code selecteren en boven in het menu op # klikken.
Dan komt de code in een apart vak te staan.

 

[Hoornvan]

Labcalimet,

Hier een voorbeeld.
Nu maar hopen dat het ook bij je werkt.

 

[snb]

Lees svp je post nog eens voor het plaatsen vanwege spel- of taalfouten.

Private Sub knop_Click()
 [B14] =iif(knop, [B14] & " **",datevalue(replace([B14]," **","")))
End Sub

 

[Labcalimet]

Werkt perfect.
Dank u wel.

MVG,
Jonas

Lees svp je post nog eens voor het plaatsen vanwege spel- of taalfouten.

Private Sub knop_Click()
 [B14] =iif(knop, [B14] & " **",datevalue(replace([B14]," **","")))
End Sub

 

[snb]

En als je ook wil begrijpen waarom ( - en dat wil je natuurlijk- ) kijk dan eens hier.