Tabellenkalkulation

Formatieren von Zahlen in MsgBox

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo, kann mir bitte jemand sagen, wie ich eine Ergebnisvariable mit Hilfe von VBA innerhalb einer MsgBox formatiert (z.B. 234,56 €) ausgeben kann? Vielen Dank im Voraus. Thorsten

Antwort 1 von martl

Hallo,

versuchs mal so:

Sub Test()
Dim x As Currency
x = Format(Worksheets("Tabelle1").Range("A1").Value, " #,##0.00 €")
MsgBox x
End Sub

Gruß
martl

Antwort 2 von Thorsten Gebhardt

Hallo Martl,

vielen Dank. Funktioniert prima. Allerdings muß zur Darstellung mit dem " €"-Zeichen die Variable als "String" oder "Variant" deklariert werden.

Nochmals vielen Dank für die schnelle Hilfe :-))
Nette Grüße
Thorsten

Antwort 3 von martl

Hallo Thorsten,

danke für die nette Rückmeldung. Hmm - ja stimmt, habs gerade nochmals probiert, da hats nur noch mit mit "String" oder "Variant" funktioniert - seltsam.. aber eigentlich egal - hauptsache es funktioniert ;)

Grüßle
martl

Antwort 4 von nighty

hi ihr beiden :)

wobei die variable nicht ubedingt von noeten ist :)

gruss nighty

Sub Test()
MsgBox Format(Worksheets("Tabelle1").Range("A1").Value, " #,##0.00 €")
End Sub