Probleme mit Bulgarischem Excel 2003
09.09.2007 11:48:24
Peter
alle Codes in denen Date und IsNumeric enthalten sind funktionieren nicht auf den Rechnern, auf denen ein Bulgarisches Office Basic Edition 2003 installiert ist. Bulgarisches Office Professional hat nicht geholfen und das gleichsetzen der Regions-Einstellungen in der Systemteuerung denen der Deutschen Rechner hat nichts geholfen.
Beim folgenden Code passiert folgendes:
Egal welches Datum man eingibt, ob falsch oder richtig, immer kommt die MsgBox "Geben Sie ein gültiges Datum im Format dd.mm.yy ein". Wenn ich den Teil mit IsNumeric weglasse fuktionierts.
Private Sub txtDatum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txtDatum "" Then
If Len(txtDatum) 8 Then
MsgBox "Geben Sie ein gültiges Datum im Format dd.mm.yy ein"
txtDatum = ""
Cancel = True
ElseIf InStrRev(txtDatum, ".") 6 And InStr(1, txtDatum, ".") 3 Then
MsgBox "Geben Sie ein gültiges Datum im Format dd.mm.yy ein"
txtDatum = ""
Cancel = True
ElseIf Not IsNumeric(txtDatum.Text) = True Then
MsgBox "Geben Sie ein gültiges Datum im Format dd.mm.yy ein"
txtDatum.Text = ""
Cancel = True
ElseIf CDate(txtDatum.Text)
Beim nächsten Code passiert folgendes:
Das Datum wird nicht im Format dd.mm.yy ausgegeben sondern in mm.dd.yy
In der Systemsteuerung habe ich schon die Regionaleinstellungen überprüft und denen meines Deutschen Rechners angepasst. Funktioniert trotzdem nicht.
Private Sub UserForm_Initialize()
Me.txtDatum = Date
Me.txtDatum = Format(CDate(txtDatum.Value), "dd.mm.yy")
End Sub
Hat jemand eine Idee?
Danke im voraus
Grüße aus Berlin
Anzeige