Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
24.04.2024 11:56:21
Export bestimmter Spalten in eine neue Exceldatei
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1284to1288
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1284to1288
1284to1288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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

Anzeige
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

Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige