Hallo allerseits,

von einem Freund erhielt ich das nachstehend beschriebende Makro zur Euroumrechnung, mit dem der Wert einer Zelle in Excel von DM in EURO (formatiert auf 2 Stellen hinter dem Komma)umgerechnet werden kann. Ist zwar schon ein wenig spät, aber vielleicht kann es der ein oder andere noch brauchen.



Sub Euroumrechnung()
For Each c In Selection
c.NumberFormat = "#,##0.00"
c.Value = c.Value / 1.95583
Next c
End Sub


So wird das Makro angelegt:

Extras-Makros-Makro-Erstellen Makroname (Euroumrechnung) vergeben auf "Erstellen" obiges Script reinkopieren schließen
Schaltfläche zuweisen (Extras-Anpassen- Befehle-Kategorien: Makros-den gelben Smily im rechten Fenster mit gedrückter linker Maustaste auf Symbolleiste ziehen zur Bearbeitung der Schaltfläche vorher Extras-Anpassen aufmachen, dann mit linker Maustaste auf Smily klicken bei Bedarf noch Shortcut zuweisen (Extras-Makros-Makro-Optionen)


Falls jemand lieber in US $ o.ä. umrechnen möchte, einfach den Faktor entsprechend anpassen.