Anzahl Stellen Währung
11.09.2007 16:39:00
gio
benötige bitte Eure Hilfe.
Unteres Makro ändert in allen Zellen wo Währungsformate sind diese in in SFR und umgekehrt.
Das läuft prima.
Aber ich habe nun ein Problem.
Plötzlich werden mir nach dem Komma mehrere Stellen angezeigt.
Wie kann ich Makro ändern, daß es mir in beiden Währungen immer nur 2 Stellen
nach den Komma anzeigt.
Habe versucht das "Euro" Ausgangsformat zu ändern, aber das geht auch nicht.
Vielen Dank
gio
Sub sfr_eur()
' sfr_eur Makro
With ActiveWorkbook.Styles("Euro")
.IncludeNumber = True
.IncludeFont = False
.IncludeAlignment = False
.IncludeBorder = False
.IncludePatterns = False
.IncludeProtection = False
End With
ActiveWorkbook.Styles("Euro").NumberFormat = "#.#0,0 "
Selection.Style = "Euro"
End Sub
Sub eur_sfr()
' eur_sfr Makro
With ActiveWorkbook.Styles("Euro")
.IncludeNumber = True
.IncludeFont = False
.IncludeAlignment = False
.IncludeBorder = False
.IncludePatterns = False
.IncludeProtection = False
End With
ActiveWorkbook.Styles("Euro").NumberFormat = "#.##0,0"" SFR"""
Selection.Style = "Euro"
End Sub