EXCEL - automatische Umrechnung auf EURO
(Autor: W   ο   l   f   g   а   n   g     Р   u   ѕ   с   һ   а   c   h   е   r, Antwort nach 48 Min)

Hallo Uwe!

Du kopierst nachfolgende Zeilen einfach in ein VBA-Fenster: Extras - Makro - Visual Basic Editor

Das Script noch etwas anpassen (Range(A1:A10) - Format - ATS bzw. DM auswählen), danach den Makro einfach ausführen über Extras - Makro - Makros - DMEuro

--- snip ---

Function DM_EURO(DM)
' Diese Function rechnet DM auf EURO
faktor = 1.95583
DM_EURO = Application.WorksheetFunction.Round(DM / faktor, 2)
End Function


Function ATS_EURO(ATS)
' Diese Function rechnet ATS auf EURO
faktor = 13.7603
ATS_EURO = Application.WorksheetFunction.Round(ATS / faktor, 2)
End Function


Sub DMEuro()
' Hier den Bereich definieren
For Each z In Range("A1:A10")
If IsNumeric(z.Value) = True Then
'
' Für Umrechnen von ATS einfach
' den Eintrag ändern
z.Value = DM_EURO(z)
' z.Value = ATS_EURO(z)
'
' hier kann das Format angepasst werden
z.NumberFormat = "#,##0.00 [$Eur]"
End If
Next
End Sub

--- snip ---