Währungsformat wird als Text ausgegeben

Question

Hallo,

ich habe folgenden Code
...
Cells(n - 1, 15).Value = Format(Betrag, "#,##0.00 €")
...
Dieses Format führt aber dazu, dass der Betrag richtig angezeigt wird, allerdings als Textformat erscheint und damit nicht weiter z.B. addiert werden kann. Weiß jemand welches Format mein Problem lösen könnte, also als Währung dargestellt und gleichzeitig weiter berechenbar?
Danke und Gruß
Andreas

Answer 1

Hallo Andreas,

in solchen Fällen hilft auch mal der Makro-Rekorder weiter ;-):

Cells(n - 1, 15).NumberFormat = "#,##0.00 $"

Gruß

M.O.

Answer 2

Hallo M.O.,

danke für den Tipp. Kannst du mir noch sagen, wie ich di Variable "Betrag" da noch unterbringe. Danke!

Answer 3

Hallo Andreas,

das kannst du z.B. so machen:

With Cells(n - 1, 15)
.Value = Betrag
.NumberFormat = "#,##0.00 $"
End With

Gruß

M.O.

Answer 4

Hallo,

super, das klappt, so wollte ich das haben. Da wäre ich aber mir dem Macrorekorder sicher nicht hingekommen...?
Gruß
Andreas

Answer 5

Hallo Andreas,

nein :-). Mir war nicht klar, was du mit

Format(Betrag, "#,##0.00 €")

bezwecken wolltest.

Aber jetzt hast du ja die Lösung.

Gruß

M.O.