Office: (Office 2007) Textbox mit Währung formatieren

Hallo,

ich möchte, wenn ich in eine Textbox eine Zahl eingebe, diese Zahl automatisch als Währung formatiert wird. Wenn ich folgende Code verwende:

Code:

 

Jallo Usi,

ist das Change Ereignis nicht das falsche Ereignis. Das wird nach jeder Eingabe ausgeführt. Oder wird nur eine Stelle eingegeben.
Private Sub TextBox1_AfterUpdate()




Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.

 

Hallo Hajo,

ich wollte mit dem Change Ereigniss erreichen, dass die Textbox sofort upgedatet wird und nicht erst beim verlassen der Textbox (anlog zu deinem Code für die Eingabe von Datum in der Textbox)

Gruß

Usi

 

Hallo Usi,

bei meinem Datum wird an den entsprechenden Stellen nur der Punkt eingefügt. Du willst aber das Eurozeichen davor haben und eine bestimmte Formatierung. Diese Formatierung geht nur bei Zahlen und durch DEine Formatierung ist es keine Zahl. Es gibt dafür bestimmt auch eine Lösung aber dafür habe ich jetzt keine Zeit.

 

Hallo,

ich könnte mein Problem zum teil mit folgendem Code lösen:

Code:

 

Hallo Usi,

mir ist nicht ganz klar wie du ein koma eingeben willst?
Code:

 

Hallo Hajo,

das Komma will ich nicht eingeben, sondern es ist ja durch die Formatierung
Format(Preis_LI_LO_Ges, "€ #,##0.00") vorhanden.

Danke für deine Hilfe dein Code funktioniert natürlich und die Eingabe ist jetzt so wie ich es gewollt habe.

Gruß

Usi

 

Hallo Usi,

das hast Du Dir aber zueinfach gemacht.
Code: