Formatierung für viele Währungen

Question

Kennt jemand eine clevere Methode zur bedingten Formatierung für mehrere Währungen? Ich weiß, dass ich Formeln zur bedingten Formatierung verwenden und alle einprogrammieren könnte, aber ich muss für 154 Währungen formatieren. Ich frage mich, ob es eine VBA-Lösung oder eine andere clevere Lösung gibt, die Sie in der Vergangenheit verwendet haben. Danke!

Answer 1

Ohne weitere Informationen sollte dies Ihnen den Einstieg erleichtern.

Sub Macro1()
' I will assume you have something like "GBP", "USD", in column D. Next to that cell is a currency amount.
' This will look at the cell in column D, and apply the appropriate format.

Dim rng As Range, cel As Range
Set rng = Range("E1:E10")
For Each cel In rng
    Select Case cel.Offset(0, -1).Value
    Case "USD"
        cel.NumberFormat = "$#,##0.00"
    Case "GBP"
        cel.NumberFormat = "£#,##0.00"
    End Select
Next cel

End Sub

Es handelt sich zwar nicht um eine bedingte Formatierung, aber es könnte etwas schneller laufen. Wenn Sie eine bedingte Formatierung wünschen, lassen Sie es mich wissen und ich kann es anpassen. Sie sollten sehen, wie Sie weitere Währungen hinzufügen können. Wenn Sie eine andere Möglichkeit haben, die Währung einer Zelle zu bestimmen, lassen Sie es mich wissen und ich kann dies aktualisieren. Aktualisieren Sie aber auch Ihr OP mit allen Formeln/Makros, die Sie bereits haben, und allen weiteren Details zu den Währungen, die Sie verwenden möchten.