TextBox / comboBox Format festlegen

24.03.2025 11:20:46

Melanie.89

Hallo zusammen,

Leider funktioniert eine UserForm plötzlich nicht mehr, nachdem der PC updates gemacht hat.
Es handelt sich um Excel 2016.

Der Debugger springt beim Öffnen der Userform auf folgende Zeilen:

Private Sub TextBox3_Change()
Me.TextBox3.Value = Format(Me.TextBox3.Value, "dd.mm.yyyy")
End Sub

Die ComboBox, die nicht mehr funktioniert ist ähnlich:

Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1, "hh:mm")
End Sub

In das Tabellenblatt werden die Eingaben so übertragen:
Dim erste_freie_Zeile As Integer
erste_freie_Zeile = Sheets("Eingabe").Columns(1).Find("*", SearchDirection:=xlPrevious).Row + 1
Sheets("Eingabe").Cells(erste_freie_Zeile, 1) = TextBox1.Value
Sheets("Eingabe").Cells(erste_freie_Zeile, 2) = TextBox2.Text
Sheets("Eingabe").Cells(erste_freie_Zeile, 3) = CDate(TextBox3.Value)
Sheets("Eingabe").Cells(erste_freie_Zeile, 4) = ComboBox1.Value
usw...

Außerdem ist die Userform so initialisiert
Private Sub UserForm_Initialize()
TextBox1.Value = WorksheetFunction.Max(Range("A:A")) + 1
Me.TextBox3.Value = Format(Now, "DD.MM.YYYY")
End Sub

Ich weiß leider nicht, was ich da jetzt ändern muss, da mir da leider die Erfahrung fehlt.
In der Suche habe ich nichts gefunden, was ich in dem Fall umsetzen kann.

Danke schonmal für eure Hilfe.

AW: TextBox / comboBox Format festlegen

24.03.2025 11:41:44

Melanie.89

Noch ein Nachtrag.
Es handelt sich um folgenden Fehler
Overflow (Error 6)
Article
09/13/2021
8 contributors
An overflow results when you try to make an assignment that exceeds the limitations of the target of the assignment. This error has the following causes and solutions:

The result of an assignment, calculation, or data type conversion is too large to be represented within the range of values allowed for that type of variable.

Assign the value to a variable of a type that can hold a larger range of values.

An assignment to a property exceeds the maximum value the property can accept.

Make sure your assignment fits the range for the property to which it is made.

You attempt to use a number in a calculation, and that number is coerced into an integer, but the result is larger than an integer.

AW: TextBox / comboBox Format festlegen

24.03.2025 14:32:29

Daniel

Hi
Du verwendest das falsche Event.
Change startet bei jeder Ändeung des Objektes, egal wer diese Änderung durchführt, dh das kann auch das Change-Event -Makro selbst sein, was dann in einer Endlosschleife enden kann.
"AfterUpdate" oder "Exit" sind hier die besseren Events, dann macht der Anwender seine Eingabe vollständig, bevor dann die Korrektur durch das Makro erfolgt und das Makro nicht startet,wenn ein anderes Makro den Wert einträgt (dann sollte eine Korrektur nicht notwendig sein)

Gruß Daniel

AW: TextBox / comboBox Format festlegen

24.03.2025 15:21:58

Melanie.89

@Daniel, danke für die Rückmeldung. Die Userform hat jetzt 2 Jahre lang ohne Probleme funktioniert. Wieso ist dann jetzt auf einmal das Event falsch?

Ich habe die Datei nochmal auf einem anderen PC geöffnet. Dort kann die Userform geöffnet werden und man bekommt erst beim Eingeben der Dauer, also der ComboBox, eine Fehlermeldung und die ausgewählte Dauer wird zu einer ellenlangen Zahl mit -e.
Da springt der Debugger z.b. auch nicht erst zum Datum, sondern erst zu der Dauer, das Datum nimmt er dort.

Also bitte nicht falsch verstehen, bin nur sehr ratlos und möchte gerne auch verstehen, warum das jetzt nach 2 Jahren nicht mehr passen sollte.

AW: TextBox / comboBox Format festlegen

24.03.2025 17:33:48

daniel

mich wundert, dass es 2 Jahre funktioniert hat.
Eingaben während der Eingabe zu korrigieren ist Unsinn

in der Combobox wählt man ja normalerweise einen vorhandenen Wert aus, also sollte es da nicht notwendig sein, die Eingabe zu korrigieren.
der nächste Punkt wäre, wie wird denn die Combobox mit Daten befüllt?
Das nächste Problem könnte sein, wenn du auf eine Tabelle verweist mit Uhrzeiten, dann kann es keinen Treffer auf einen Comboboxwert, wenn du einen Text in der Combobox als Wert vorgibst, denn prinzipiell ist es ja möglich, in das Textfeld etwas reinzuschreiben, was nicht in der Liste vorkommt.

also man müsste jetzt schon genauer wissen, was du da machst, am besten mit der Beispieldatei

Gruß Daniel

AW: TextBox / comboBox Format festlegen

25.03.2025 16:32:44

Melanie.89

Es funktioniert alles wieder.
Es lag am Language Pack auf dem PC, dadurch konnten die Formate teilweise nicht richtig zugeordnet werden und es kam zu dem Overflow Fehler

AW: TextBox / comboBox Format festlegen

24.03.2025 11:47:49

RPP63

Moin!
Mutmaßlich solltest Du erste_freie_Zeile As Long deklarieren.
Integer geht nur bis Zeile 32.767
Ein Tabellenblatt hat 2^20 → 1.048.576 Zeilen

Gruß Ralf

AW: TextBox / comboBox Format festlegen

24.03.2025 15:15:22

Melanie.89

Danke für die Rückmeldung. Habe das ausprobiert, hilft leider nicht.

Die Userform hat die letzten 2 Jahre auch ohne Probleme funktioniert, bis heute morgen

TextBox / comboBox Format festlegen

Forumthread: TextBox / comboBox Format festlegen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

TextBox / comboBox Format festlegen

Forumthread: TextBox / comboBox Format festlegen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread