Zelle in Währungsformat setzen
23.10.2008 20:39:35
Larissa
Hallo,
ich lasse in eine Tabelle durch VBA in einer Zeile Daten eintragen, welche aus verschiedenen Tabellenblättern gesammelt werden.
In Spalte 11 Wird die Währung "USD" oder "EUR" eingetragen und zwei Spalten danach die Summe. Die Spalte mit der Summe muss entsprechend der Währung formatiert werden. In diesem Forum wurde mir bereits mit diesem Makro geholfen:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 11 Then
Select Case Target
Case ""
Target.Offset(0, 2).NumberFormat = "#,##0.00 "
Case "USD"
Target.Offset(0, 2).NumberFormat = "#,##0.00 [$$-409]"
End Select
End If
End Sub
Das funktioniert super, aber nur, wenn man die Währung in Spalte 11 manuell eingibt und nicht, wenn sie durch ein Makro eingetragen wird.
Kann mir bitte jemand bei diesem Problem helfen?
Danke und lieben Gruß,
Larissa