Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
23.04.2024 14:47:39
23.04.2024 14:23:45
Anzeige
Archiv - Navigation
1152to1156
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
Textbox Value (zahl mit Währung) zerlegen
Jürgen
Hallo zusammen,
ich habe eine Texbox so programiert, dass nach dem Exit Ereignis die Zahl in Euro umgewandelt wird.
Dummerweise, möchte ich mit dieser Zahl aber später nochmal rechnen also brauche ich diese dann ohne Euro! Wie mach ich das?
Danke für Eure Hilfe!
Viele Grüße

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

Betreff
Benutzer
Anzeige
zeig doch mal Deinen Exit-Code oT
30.04.2010 23:14:17
Matthias
AW: Textbox Value (zahl mit Währung) zerlegen
30.04.2010 23:16:17
Uduuh
Hallo,
das schafft VBA auch alleine.
Msgbox "10€"*1,19 funktioniert ohne weiteres.
Gruß aus’m Pott
Udo

1.19 anstatt 1,19 natürlich owT
30.04.2010 23:17:24
Uduuh
AW: Textbox Value (zahl mit Währung) zerlegen
01.05.2010 12:55:49
Jürgen
Danke für den Hinweis. Ich hab mich ein bisschen undeutlich ausgedrückt.
Die Währung ist eigentlich nur fürs Auge und die erzeuge ich mit dieser Anweisung im Exit Ereignis
txtPreis = format(txtPreis, "#,##0.00 €")
Danach schreib ich den Wert in eine Variable und dort taucht der Fehler auf.
Meine Variable war bisher vom Typ Single. Nachdem ich nun aber den Wert mit € ausdrücke, geht Single nicht mehr und es kommt der Fehler Typenunverträglichkeit. Was ja klar ist. Wie bekomm ich nun den Wert von txtPreis in eine Variable mit der ich Rechnen kann? Gibts da einen anderen Typ oder muss ich den Wert zerlegen?
Wie immer Danke für Eure Hilfe
Anzeige
AW: Textbox Value (zahl mit Währung) zerlegen
01.05.2010 13:53:32
Tino
Hallo,
versuch es mal so.
Beispiel nicht getestet.
Dim sngWert As Single
txtPreis = 10515.5
txtPreis = Format(txtPreis, "#,##0.00 €")
If txtPreis  "" Then _
sngWert = Replace(txtPreis, " €", "") * 1
Gruß Tino

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige