Bestehende Tabellen von DM in Euro konvertieren



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Bestehende Tabellen von DM in Euro konvertieren
von: Uwe Seelmann
Geschrieben am: 06.07.2002 - 21:21:15

Ich habe alte DM Tabellen und möchte diese möglichst einfach in Euro umrechnen?

nach oben   nach unten

Re: Bestehende Tabellen von DM in Euro konvertieren
von: Hajo_Zi
Geschrieben am: 06.07.2002 - 22:17:18

Hallo Uwe

ist das nicht langsam ein wenig spät. Markiere alle Zellen und lasse folgendes Makro laufen. Die Werte werden umgerechnet und auf 2 Stellen gerundet. Formel werden nicht umgerechnet.


Sub Umrechnen_nur_Euro()
    Const Eurokurs = 1.95583
    Dim As Range
    Dim Waehrung As String
    For Each Z In Selection
        If Not (Z.HasFormula) Then
            If Z.Value <> "" And IsNumeric(Z.Value) Then
                Z.NumberFormat = "#,##0.00 €"
                Z.Value = Application.WorksheetFunction.Round(Z.Value / Eurokurs, 2)
            End If
        Else
            Z.NumberFormat = "#,##0.00 €"
        End If
    Next
End Sub

Gruß Hajo


nach oben   nach unten

Re: Bestehende Tabellen von DM in Euro konvertieren
von: MRR
Geschrieben am: 07.07.2002 - 08:47:48

Und nach wie vor gilt: Die eierlegende Wollmilchsau für diese Aufgabe (sowie diverse andere Umrechnungen und Formatierungen) ist Conv€u - der Excel-Eurokonverter, der auch alle Dateien einer Verzeichnisstruktur behandeln kann. Viel Spaß beim Testen.
Matthias
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Bestehende Tabellen von DM in Euro konvertieren"