TextFeld

Forumthread: TextFeld

TextFeld

13.11.2012 14:12:27

Albert

Grüss Gott liebe Excel-Engel,
in einem User-Form erfasse ich Texte und Zahlen.
Im Feld txtKaufPreis gebe ich 45000 ein.
VBA soll nun aus der 45000 einen String von 45,000.00 machen und im UserForm auch sofort anzeigen (und später als String in der Tabelle übergeben).
Da u.U. im gleichen Feld auch $ 45000 eingegen werden, soll das obenerwähnte nur geschehen, wenn der Wert des Feldes: txtKaufPreis auch Numeric ist.
Das Feld wird nachher nicht zum rechnen verwendet.
Danke
Albert

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: TextFeld

13.11.2012 14:25:50

Klaus
AW: TextFeld

13.11.2012 16:01:10

Albert
AW: TextFeld

13.11.2012 16:18:39

hary
AW: TextFeld

13.11.2012 16:37:27

Albert
AW: TextFeld

13.11.2012 17:25:19

hary

AW: TextFeld

13.11.2012 14:25:50

Klaus


Private Sub txtKaufPreis_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(txtKaufPreis) Then
MsgBox (Format(txtKaufPreis, "# ##0.00"))
Else
End If
End Sub

Statt "MsgBox" halt wasimmer du brauchst.
Grüße,
Klaus M.vdT.

AW: TextFeld

13.11.2012 16:01:10

Albert

Hallo zusammen,
Super, aber ....
Wie wird mein Formular aktualisiert, bzw. Mein Feld.
Nachfolgend meine Eingabe (die MsgBox ist nur zur Kontrolle).
Albert

Private Sub txtKaufpr_AfterUpdate()
If IsNumeric(txtKaufpr) Then
txtKaufpr = (Format(txtKaufpr, "# ##0.00"))
Else
End If
MsgBox txtKaufpr
End Sub

AW: TextFeld

13.11.2012 16:18:39

hary

Hallo
Du must das Exit-Ereigniss nutzen, wie Klaus schrieb.

Private Sub txtKaufpr_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(txtKaufpr) Then
txtKaufpr = (Format(txtKaufpr, "# ##0.00"))
End If
End Sub

gruss hary

AW: TextFeld

13.11.2012 16:37:27

Albert

Hallo zusammen,
Super - aber Excel macht ein neues Problem.
Liegt es an der Schweizer Einstellung oder sonst wo:
gebe ich eine Zahl kleiner als 1000 ein ( z.B. 4),
dann wird '4.00 dargestellt.
Bei 1234567 wird dann dafür 1234'567.00 und der Tausender-Strich (') wird nicht dargestellt,
auch in der Übergabe zur Tabelle nicht.
Gruss
Albert

Private Sub txtEigen_AfterUpdate()
If IsNumeric(txtEigen) Then
txtEigen = (Format(txtEigen, "#'###.00"))
End If
End Sub

AW: TextFeld

13.11.2012 17:25:19

hary

Hallo Albert
"Liegt es an der Schweizer Einstellung "
Schaetze ja, lies diesen Thread mal durch.
https://www.herber.de/forum/archiv/964to968/965006_Schweizer_Formatproblem.html
gruss hary

Beliebteste Forumthreads (12 Monate)

Forumthread: TextFeld

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread