Excel help

Hab eine Excel 2000 Tabelle mit etwa 300 Schilling Beträgen, die ungleichmäßig über die Tabelle verteilt sind.

Task: Die Schilling durch entsprechende Euros ersetzen, ohne jedes Mal den Betrag in den Rechner eintippen zu müssen und diesen dann ins passende Feld zu übertragen.

Any ideas?

Code:

Sub chgATS2EUR()
    For Each cell In Selection
        cell.Value = cell.Value / 13.7603
    Next
    MsgBox "Dun"
End Sub

fertig

np

Wie jedoch immer und überall: Ich übernehme keine Haftung für eventuell auftretende Schäden

Geht auch viel einfacher:

13.7603 in eine Zelle reinschreiben, die Zelle kopieren.
Zielbereich auswählen und Edit|Paste Special ausführen. Operation auf Divide stellen.
Fertig