Formatierung als Währung

Forumthread: Formatierung als Währung

30.11.2003 09:17:34

Franz W.

Guten Morgen,

ich hab Schwierigkeiten mit der Formatierung einer Zelle als Währung bzw. mit der Ausgabe des Wertes in VBA:

- die Zelle ist formatiert als Währung: 123, 2 Nachkommastellen

- in VBA wird der Wert der Zelle eingelesen in die Variable "Gebuehr",
Dim Gebuehr as Currency

Aber ausgegeben wird eine Zahl ohne Nachkommastellen (und schon gar nicht mit Währungssymbol).

Geht das nicht als "Währung", muss ich das als "Zahl" nehmen? Oder was mache ich falsch?

Vielen Dank schon mal im Voraus und Grüße
Franz

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Formatierung als Währung

30.11.2003 10:27:47

Sigi
Ah, jetzt versteh ich..

30.11.2003 11:03:33

Franz W.

AW: Formatierung als Währung

30.11.2003 10:27:47

Sigi

Hallo Franz,

es kommt darauf an, wie du die Variable definiert hast.

Numerische Variablen (currency, single, doulbe, etc.) nehmen i m m e r nur den Wert
des Excelfeldes an!

Du brauchst eine Variable des Typs string um auch Formatierungen mit aufnehmen zu können
oder du musst für die Ausgabe ein Format mitgeben.

Beispiel:


Sub Test()
Dim FeldInhalt As String
Dim Währung As Currency
FeldInhalt = Range("C6").Text
Währung = Range("C6").Value
MsgBox FeldInhalt & vbCr & _
Währung & vbCr & _
Format(Währung, "#,##0.00 ")
End Sub

Gruß
Sigi

Ah, jetzt versteh ich..

30.11.2003 11:03:33

Franz W.

Hallo Sigi,

ja, da klappt! Und ich hab's glaub ich auch kapiert. Ganz vielen Dank dafür.

Beste Grüße
Franz

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Zelle formatieren: Stelle sicher, dass die Zelle in Excel als Währung formatiert ist. Dies kannst du über das Kontextmenü oder die Registerkarte "Start" unter "Zahlenformat" einstellen.
Variable deklarieren: In deinem VBA-Code solltest du die Variablen wie folgt deklarieren:
```
Dim Gebuehr As Currency
Dim FeldInhalt As String
```
Wert einlesen: Lese den Wert aus der Zelle ein und weise ihn deiner Variablen zu:
```
FeldInhalt = Range("C6").Text
Gebuehr = Range("C6").Value
```
Formatierung ausgeben: Wenn du das Ergebnis mit dem Währungsformat ausgeben möchtest, verwende die Format-Funktion:
```
MsgBox FeldInhalt & vbCr & _
Gebuehr & vbCr & _
Format(Gebuehr, "#,##0.00 ")
```
Makro ausführen: Führe das Makro aus, um die Ausgabe zu sehen.

Häufige Fehler und Lösungen

Excel Währungsformat falsch: Überprüfe, ob die Zelle korrekt als Währung formatiert ist. Verwende die .Text-Eigenschaft, um den formatierten Text zu erhalten.
Keine Nachkommastellen: Wenn du nur den Wert (ohne Formatierung) erhältst, verwende Format in deiner Ausgabe.
Variable vom falschen Typ: Achte darauf, dass du die richtige Datentyp-Deklaration verwendest. Verwende String, wenn du Formatierungen beibehalten möchtest.

Alternative Methoden

Access VBA Format Currency: Wenn du in Access arbeitest, kannst du ähnliche Methoden verwenden. Der Befehl Format funktioniert hier auch, um Währungswerte zu formatieren.
Excel Text in Währung umwandeln: Wenn du Text in Währungswerte umwandeln möchtest, kannst du CCur() verwenden, um sicherzustellen, dass der Text als Währung erkannt wird:
```
Gebuehr = CCur(Range("C6").Value)
```

Praktische Beispiele

Hier ist ein einfaches Beispiel, wie du das Währungsformat in einem Makro korrekt verwendest:

Sub FormatWaehrung()
    Dim Gebuehr As Currency
    Dim FeldInhalt As String

    FeldInhalt = Range("C6").Text
    Gebuehr = Range("C6").Value

    MsgBox "Wert: " & FeldInhalt & vbCr & _
           "Formatierte Währung: " & Format(Gebuehr, "#,##0.00 €")
End Sub

Tipps für Profis

Nutze vba format währung, um sicherzustellen, dass du die richtige Formatierung für deine Währungswerte verwendest.
Experimentiere mit verschiedenen Formatierungsoptionen in der Format-Funktion, um das gewünschte Erscheinungsbild zu erreichen.
Halte deine VBA-Codes sauber und gut strukturiert, um die Wartbarkeit zu erhöhen.

FAQ: Häufige Fragen

1. Wie kann ich das Währungsformat für Euro in VBA einstellen?
Du kannst das Währungsformat für Euro mit der Format-Funktion einstellen, indem du das Euro-Symbol in deinen Formatstring einfügst:

Format(Währung, "#,##0.00 €")

2. Was ist der Unterschied zwischen Währungs- und Dezimalformat in VBA?
Währungsformat behandelt Werte mit zwei Dezimalstellen und zeigt das Währungssymbol an, während das Dezimalformat keine spezifische Währungsdarstellung hat.

Beliebteste Forumthreads (12 Monate)