Datumsformat (VBA?)
16.12.2003 18:18:06
Ina
ich möchte über Userform1 / TextBox1 ein Datum in die Zelle D47 in Tabelle1 einfügen.
Die Eingabe in die Textbox soll ohne Punkteingabe möglich sein (z.B. 010204 für den 1. Februar 2004).
Anschliessend soll in der Tabelle1 die Zelle D47 in das Format MMMM.JJJJ gewandelt werden.
Zelle D47 habe ich mit dem benutzerdefiniertem Format MMMM.JJJJ versehen, aber die Umwandlung klappt nicht.
Bei obiger Eingabe (010204) wird Dez 1927 angezeigt :-(
Ich habe ein wenig mit VBA experimentiert... klappt nicht (Excel gut, VBA nein...)
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not Chr(KeyAscii) Like "[0-9]" Then Call DatumErlaubt: KeyAscii = 0
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 > 0 Then Exit Sub
If TextBox1 = 0 Then FehltWas: DispoMonat = " "
Cancel = True
End Sub
Private Sub CommandButton1_Click()
With UserForm1
If .TextBox1.Value = 0 Then Call FehltWas: .TextBox1.SetFocus: Exit Sub
Worksheets("Tabelle1").Cells(47, 4).Value = .TextBox1.Value
End With
Unload Me
Call Daten_Übernommen
End Sub
Wer kann mir weiterhelfen?
Danke und Gruss Ina