Office: Textbox Datum (vor)-Formatierung

Hallo zusammen, liebe Helferlinge...
Vielleicht könnt ihr mir mal wieder bei folgendem Problem helfen:

Habe eine Textbox auf einem Usf, wo ein datum eingegeben werden soll. Damit man da nicht nen Text eingibt oder jedes Datum nen anderes Format hat, hätt ich das gern nach dem Prinzip TT.MM.JJJJ !!!

Bei mir sieht es so aus:

Dim Datum As Date

Private Sub txb_datum_Change()
txb_datum.Value = Format(Datum, "dd.mm.yyyy")
End Sub

Sobald ich aber nun etwas in die txb eingebe, erscheint gleich 30.12.1899...
Hab ich die Variable falsch geklariert !?
Oder ...txb.value = format... an der falschen stelle (weil muss ins usf oder so) !?
Oder ist die Anweisung falsch !?

Ich hoffe, ihr könnt mir helfen...

:)

 

Hi,

dein Code ist Käse. Die Variable "Datum" enthält doch keinen Wert!

Ausserdem ist das nicht so einfach, dafür gibt's ja schließlich geeignete
Steuerelemente wie den DTPicker.

Eine endgültige Absicherung ist schwierig, aber mit folgendem Code
erreichst du zumindet eine geisse Sicherheit.

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub txb_datum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(txb_datum) < 10 Then
MsgBox "Ungültiges Datum!"
Cancel = True
Else
txb_datum = Format(CDate(DateSerial(Right(txb_datum, 4), Mid(txb_datum, 4, 2), _
Left(txb_datum, 2))), "dd.MM.yyyy")
End If
End Sub

Private Sub txb_datum_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case Len(txb_datum)
Case 0
Select Case KeyAscii
Case 48 To 51
Case Else
KeyAscii = 0
End Select
Case 1
If Clng(txb_datum) > 2 Then
Select Case KeyAscii
Case 48, 49
Case Else: KeyAscii = 0
End Select
Else
Select Case KeyAscii
Case 48 To 57
Case Else: KeyAscii = 0
End Select
End If
Case 2, 5
Select Case KeyAscii
Case 44, 46, 47: KeyAscii = 46
Case Else: KeyAscii = 0
End Select
Case 3
Select Case KeyAscii
Case 48, 49
Case Else: KeyAscii = 0
End Select
Case 4
If Clng(Mid(txb_datum, 4, 1)) = 0 Then
Select Case KeyAscii
Case 48 To 57
Case Else: KeyAscii = 0
End Select
Else
Select Case KeyAscii
Case 48 To 50
Case Else: KeyAscii = 0
End Select
End If
Case 6 To 10
Select Case KeyAscii
Case 48 To 57
Case Else: KeyAscii = 0
End Select
Case Else: KeyAscii = 0
End Select
End Sub

 

Danke für die schnelle Antwort !!!
Leider hilft mir dein Code nicht, aus 2 Gründen: 1. Ich brauch das für die Uni, bin VBA-Neuling und mein Lehrer würde wissen, dass ich das nie geschrieben habe... 2. versteh ich es auch nicht, nicht mal so ungefähr...

So falsch kann doch mein Ansatz eigentlich nicht sein !? immerhin schreibt er mir ja schon ein datum im richtigen Format... Nur halt ein falsches Datum ;(

 

Moin, Berste,

mit schöner Regelmäßigkeit nutzt Du das falsche Ereignis für einen Vorgang: jede Änderung in der Textbox löst Dein verwendetes Ereignis wieder aus. Sepp hat aufgezeigt, wie man als Eingaben nur Zahlen und Punkte zulässt.

Alternativ kannst Du für die Textbox unter Eigenschaften im VBE bei ControlTipText einen Hinweis für die Eingabe in der Form von Bitte im Format 18.01.2010 eingeben und für das Verlassen den folgenden Code verwenden:

Code:

Dann solltest Du aber Dein Change-Ereignis auskommentieren (mit dem Einsatz des Symbols aus der Leiste Bearbeiten in der VBE nach Markieren).

 

Hey Jinx...
Hast recht, hätte vielleicht sagen sollen, dass ich Anfänger bin und ne kleine Hilfestellung brauche *Smilie Aber Sepp, trotzdem danke *wink.gif*

Vielen dank für den Code... Ich hab verstanden was passiert und konnte ihn sogar noch etwas passender abändern... DieFunktion des ControlTip kannte ich noch nicht, also gleich noch was dazu gelernt *wink.gif*

Danke für eure Mühe, ihr Experten *wink.gif*
Habt mir wirklich geholfen !!! Liebe Grüße