In VBA (Visual Basic for Applications) wird die Funktion `FormatCurrency` verwendet, um Zahlen in einen Währungsformat-String zu formatieren. Diese Funktion kann nützlich sein, wenn Sie sicherstellen möchten, dass Zahlen in einem bestimmten Format angezeigt werden, etwa in Excel oder Access. Hier ist eine grundlegende Anleitung zur Verwendung von `FormatCurrency`:
Syntax
FormatCurrency(Expression, [NumDigitsAfterDecimal], [IncludeLeadingDigit], [UseParensForNegativeNumbers], [GroupDigits])
Parameter
- Expression: Erforderlich. Der numerische Ausdruck, den Sie formatieren möchten.
- NumDigitsAfterDecimal: Optional. Gibt die Anzahl der Dezimalstellen an. Wenn Sie diesen Parameter weglassen, wird die Anzahl der Dezimalstellen verwendet, die in den Ländereinstellungen Ihres Systems festgelegt ist.
- IncludeLeadingDigit: Optional. Ein `vbTriState`-Wert, der angibt, ob Nullen vor dem Dezimalpunkt angezeigt werden sollen, wenn die Zahl kleiner als 1 ist.
- `vbTrue` (-1): Zeigt führende Nullen an.
- `vbFalse` (0): Zeigt keine führenden Nullen an.
- `vbUseDefault` (-2): Verwendet die Systemeinstellungen.
- UseParensForNegativeNumbers: Optional. Ein `vbTriState`-Wert, der angibt, ob negative Zahlen in Klammern angezeigt werden sollen.
- `vbTrue` (-1): Verwendet Klammern für negative Zahlen.
- `vbFalse` (0): Verwendet ein Minuszeichen vor negativen Zahlen.
- `vbUseDefault` (-2): Verwendet die Systemeinstellungen.
- GroupDigits: Optional. Ein `vbTriState`-Wert, der angibt, ob Zahlen gruppiert werden sollen (d. h. Tausendertrennzeichen).
- `vbTrue` (-1): Gruppiert Zahlen.
- `vbFalse` (0): Gruppiert Zahlen nicht.
- `vbUseDefault` (-2): Verwendet die Systemeinstellungen.
Beispiel
Hier ist ein einfaches Beispiel dafür, wie Sie `FormatCurrency` in einem Makro verwenden könnten:
Sub BeispielFormatCurrency()
Dim myValue As Double
Dim formattedValue As String
myValue = 1234.5678
formattedValue = FormatCurrency(myValue, 2, vbTrue, vbTrue, vbTrue)
MsgBox "Der formatierte Wert ist: " & formattedValue
End Sub
In diesem Beispiel wird `myValue` auf 1234,5678 gesetzt und dann formatiert. Die Ausgabe in der MessageBox könnte z. B. “1.234,57 €” lauten, abhängig von den Regionaleinstellungen Ihres Systems.
Anmerkungen
- Beachten Sie, dass das tatsächliche Aussehen des ausgegebenen Strings stark von den Regionaleinstellungen und den Währungseinstellungen des Betriebssystems abhängen kann.
- Die Funktion `FormatCurrency` ist besonders nützlich, wenn Sie Preisangaben oder andere finanzielle Daten formatieren müssen, um Einheitlichkeit und Lesbarkeit in Ihren Anwendungen zu gewährleisten.
Unlock Your Potential
Excel
Access
Power BI
