Bestehende Tabellen von DM in Euro konvertieren

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

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 Z 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

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