Hallo,
dies ist keine Anfrage, sondern ein Makro (das nun endlich hoffentlich fehlerfrei ist) mit dem man DM Beträge in Euro umrechnen kann. (siehe die Artikel von Feanor, etc. weiter unten)
Zur Funktionsweise des Makros:
Alle Zellen, die umgerechnet werden sollen, markieren, dann das Makro starten. (Legt man sich am besten auf eine Schaltfläche)
Das Makro rechnet dann alle markierten Zellen in Euro um, rundet (in der Standardeinstellung) auf 2 Nachkommastellen und weist den Zellen das Format Dezimalzahl mit Tausenderpunkt und zwei Dezimalstelen nach dem Komma und das Währungssymbol € zu.
Sollten sich in der Markierung Zellen mit Formeln befinden, wird die Umrechnung übersprungen und nur das Zahlenformat zugewiesen.
Ist das Format der Zelle bereits in € mit dem gleichen Zahlenformat, wird nicht noch einmal umgerechnet. Nebenbei dies ist noch eine potenzielle Fehlerquelle des Makros, falls einmal umgerechnet wurde mit zwei Nachkommastellen und dann das Makro auf eine Dezimalstelle umgeändert wird, würde das Makro noch einmal umrechnen. Hier muß dann das Makro angepaßt werden.
Hier der Code:
Sub DMinEURO()
Dim f, g, h
For Each c In Selection
If c.NumberFormat = „#,##0.00 €“ Or Mid$(c.Formula, 1, 1) = „=“ Then
Else
h = 2
’ h = Anzahl der Dezimalstellen, auf die gerundet werden soll
’ NumberFormat = „#,##0.00 €“
’ muß bei Veränderung von h
’ auf die entsprechende Rundung angepaßt werden
c.Value = c.Value / 1.95583
f = Int(c.Value * 10 ^ h)
g = c.Value * 10 ^ h - f
If g
das frage ich mich auch…