Zellenformat für den Euro

[josef24]

Guten Tag. Ich möchte die Eurobeträge mit folgendem VBA-Code in der korrekten Ausführung in die entsprechende Zelle schreiben. Habe schon einiges versucht, aber keinen Erfolg gehabt. Hier nun mein Versuch:

 For r = 3 To 13
                    With Me.Cells(r, "G")
                     .NumberFormat = "#.##,00 €"  '  "General"
                     .FormulaLocal = "=WENN(ISTZAHL(C" & r & ");C" & r & "*$D$18+G$19;"""")"
                    '  .FormulaLocal = "=WENN(ISTZAHL(C" & r & ");RUNDEN(C" & r & "*$D$18+G$19;2);"""")"
                    End With
                    Next r

 

[Yaslaw]

Stimmt das Format nicht? Kommt eine Fehlermeldung?
Wenns kein Eurio ist, würde ich nicht einen Leerstring nehmen sondern 0 oder BLANK()
.FormulaLocal = "=WENN(ISTZAHL(C" & r & ");C" & r & "*$D$18+G$19;0)"

 

[Zvoni]

.NumberFormat = "#.##,00 €"  '  "General"

Finde den Fehler (Es gibt zwei).......

bzw. den Unterschied (gibts doch so ein lustiges Spiel....)

.NumberFormat = "#,##0.00 €"  '  "General"

 

[josef24]

Danke, hat gepasst so wie ich es bereits im (Es gibt zwei)....... NumberFormat geschrieben hatte.

 

[Zvoni]

Danke, hat gepasst so wie ich es bereits im (Es gibt zwei)....... NumberFormat geschrieben hatte.

Bezweifel ich, da ich dein NumberFormat bei mir getestet habe, und eben nicht das heraus kam, was ich erwartet habe.
Aber.... *schulterzuck*.... Nicht weiter mein problem....