Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
768to772
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
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Beträge formatieren auch zur weiteren Verwendung

Beträge formatieren auch zur weiteren Verwendung
06.06.2006 21:50:25
HaJo
Hallo zusammen,
ich habe folgendes Problem und weiss leider keine Lösung. Mit der Bitte um schnelle Hilfe.
Wie formatiere ich in einer TextBox, Listbox und Comboxbox jeweils Beträge so, dass immer nach Tausendern (000) ein Punkt kommt z.B. 100.000 Aber Achtung, die Beträge müssen in der Ausgabe zur weiteren Verechnung geeignet sein. Wenn ich die Lösung z.B. TextBox1 = Format(TextBox1, "#,##0") verwende, zeigt er mir die Tausender formatiert an, aber ich kann mit dem Wert aus der TextBox nicht weiter rechnen, dann hat er Probleme mit dem Punkt.
Bitte um schnelle Hilfe in VBA.
Danke und Gruß
HaJo

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Beträge formatieren auch zur weiteren Verwendu
06.06.2006 22:16:54
Josef
Hallo Hajo!
Hier am Beispiel dreier Textboxen.
' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub CommandButton1_Click()
If IsNumeric(TextBox1) And IsNumeric(TextBox2) Then
  TextBox3 = Format(CDbl(TextBox1) * CDbl(TextBox2), "#,##0.00 €")
End If
End Sub


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "#,#0.00 €")
End Sub


Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = Format(TextBox2, "#,#0.00 €")
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Beträge formatieren auch zur weiteren Verwendu
07.06.2006 10:47:15
HaJo
Hallo Sepp,
danke für die Hilfe.
Die Werte sind in der TextBox formatiert. Wenn ich jetzt den Wert aus der TextBox auslese, macht er bei der Berechnung aber Fehler. Ich denke der wert muss rückformatiert werden. Weist Du da noch einen Trick?
Gruß
HaJo

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige