Office: Zahlenformat in Textbox aendern

Guten Tag liebes Forum,

ich habe auf meiner Userform1 die Textboxen 1-6.
In diesen sind jeweils Zahlen angezeigt und sollen auch neue Zahlen eingetragen werden.
Bisher sieht das Format so aus: 1000000 €
Ich haette aber gerne, dass bei den 1000er Schritten getrennt wird,
also 1.000.000 €.
Weiss jemand da eine Loesung?
Userform1 befindet sich auf dem Arbeitsblatt "Projekt 1"

Viele Gruesse,

Marius

:)

 

Hallo Marius

so z. B.

PHP:

         With TextBox1
.Value = Format(1000000, "#,###,###")
End With


 

Da sieht schonmal gut aus, Danke.
An welcher Stelle integriere ich das ganze in meinen Code?
Unter Userform_Initialize?

Gruß,
Marius

 

Hallo Marius,

Du musst die TextBoxes dort formatiert füllen, wo es benötigt wird.
Das kann im Initialize Makro sein oder ebenso in einem anderen Ereignis_Makro
im UserForm.

Mache in der VBA-Umgebung des UserForms einen Doppelklick auf die TextBox und Du kommst in die richtige Umgebung für die KlassenModule.

Da musst Du nun selbst auwählen, was Du benötigst.

Gruß Peter

 

Ich danke dir!

Gruß,
Marius

 

Eine Anmerkung noch, habe das ganze jetzt in mein Texbox1_Change Makro eingegeben, das sieht auch alles eigentlich gut aus, sprich ich gebe 123456 ein und es wird automatisch zu 123.456 €. Wenn ich dann aber auf meinen Command Button klicke, der den Wert in die Zelle kopiert, dann steht in der Zelle = 123.
Stimmt da villeicht irgendwas mit dem Format nicht?
Gruß Marius

 

Dass das Format stimmt, hast du ja zu Beginn des obigen Beitrages beschrieben. Welches Format du im Tabellenblatt eingestellt hast, das kann ich nicht sehen. Ich denke aber, dass du die Daten falsch überträgst ... Vielleicht hilft ja die in dem Beitrag verlinkte Musterdatei weiter. Vom Prinzip her ist genau dieses Thema dort im Code gelöst.

 

Hallo Marius,

es heißt TextBox, weil Text darin steht!
Wenn Du den Inhalt einer TextBox als Zahl weitergeben willst musst Du das mit einer Konvertierung machen - also mit CInt, CDbl, DSng usw.

Also z. B. so:

With Range("C5")
.NumberFormat = "#,###,###"
.Value = CDbl(TextBox1.Value)
End With

Gruß Peter