Datum springt auf Englisch (Textbox/Userform)
12.10.2018 10:13:34
Harald
eine Kollegin von mir hat seit ein paar Wochen ein Problem mit einer Userform, die ich programmiert habe. Die Userform wird zur Bearbeitung einer Datenbank benutzt, u. A. werden dort an verschiedenen Stellen Datums-Datensätze eingegeben. Um die Eingabe zu vereinfachen nutze ich folgenden Code als txt_AfterUpdate:
Private Sub txt_16_AfterUpdate()
With Me.txt_16
If Not IsDate(.Text) And Not .Text = "" Then
.Text = ""
MsgBox "Bitte ein gültiges Datum eingeben!"
Cancel = True
Else
On Error Resume Next
.Text = CDate(.Text)
End If
End With
End Sub
Dadurch ist sichergestellt, dass diese Textbox ein Datum enthält und die Textbox formatiert z.B. Eingaben wie "12-10" sofort in das korrekte Datum ("12.10.2018") um. Das funktionierte bisher auch problemlos und funktioniert bei meinem Rechner (Office 2016) problemlos. Bei meiner angesprochenen Kollegin ist Office 365 installiert und sie hat folgendes Phänomen:
Ruft sie die Userform auf und selektiert einen Datensatz, wird das Datum korrekt angegeben (z.B. "12.10.2018"). Auch, wenn sie das Datum ändert, erscheint es korrekt.
Wird der Datensatz gespeichert, ändert sich das Datum auf "12/10/2018".
Ruft sie den Datensatz mit diesem Datum neu auf, ändert sich der Wert auf den 10.12.2018 (10/12/2018).
Kurzum: Wenn Sie nicht jedesmal den Wert frisch eingibt, verfälscht die Userform sämtliche Datumseingaben.
Ich habe an Ihrem Rechner sämtliche Datumseinstellungen kontrolliert, ich finde keinen Hinweis auf irgendeine Spracheinstellung in Englisch. Ich habe die Datei jetzt an 6 Rechnern getestet (Excel 2013 - Excel 2016) und an keinem der Rechner tritt dieses Phänomen auf. Ich tippe daher, dass es mit 365 zu tun hat - aber auch im Office-Konto finde ich nichts.
Hat jemand von euch vielleicht eine Idee, woran das liegen könnte?
Vielen lieben Dank vorab!
Harry