Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Textbox beim verlassen formatieren

Textbox beim verlassen formatieren
14.08.2007 19:33:00
eddman
Hallo zusammen,
ist es möglich eine Textbox innerhalb eines Userforms so zu formatieren, dass beim verlassen der Textbox das Zahlenformat automatisch von 1000 auf 1.000,00 wechselt. Mit verlassen meine ich Mausklick oder Tab in die nächste Textbox des Formulars.
Vielen Dank!
Gruß eddman

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textbox beim verlassen formatieren
14.08.2007 20:04:30
Ramses
Hallo
Das geht so:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(Me.TextBox1) Then Exit Sub
If Val(Me.TextBox1) >= 1000 Then
Me.TextBox1 = Format(Me.TextBox1, "#'###.00")
Else
Me.TextBox1 = Format(Me.TextBox1, "0.00")
End If
End Sub


Gruss Rainer

Anzeige
AW: Textbox beim verlassen formatieren
14.08.2007 20:22:02
eddman
Hallo Rainer,
viiiiiiiiiiieeeeeeeeeeelen Dank! Funzt einwandfrei!!!!! :)
Gruß eddman

AW: Textbox beim verlassen formatieren
15.08.2007 11:45:00
eddman
Hallo zusammen,
zwei Fragen habe ich noch zu diesem Thema:
1. Wie kann ich das gleiche bei %-Zahlen anstellen. Wenn ich einfach nur dieses im Code mache 0.00% ergibt der Werte der Textbox bei Eingabe und nach verlassen bei Eingabe 1 - 100%?
2. Das nächste Problem ist, dass die als Zahl formatierten Zellen, die größer 1000 sind beim kopieren in das Excel-Sheet die jeweilige Zelle in ein Textformat umwandeln und somit bei Summenbildungen nicht berücksichtigt werden?
Hier ein Bsp.:
txtNAK ist gemäß obiger Vorgabe formatiert,
[E2] = Me.txtNAK.Value
Die Zelle E2 wird nun als Text formatiert :(
Vielen Dank!
Grüße eddman
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige