schreibe in eine Zelle 1,95583
Kopieren
dann die umzurechnenden DM-Zellen markieren
Bearbeiten Inhalte einfügen, dividieren anclicken
aber vorsicht bei Formeln (z.B. SUMME), da wird sonst auch nochmal dividiert.
das wars
Gruß Andreas
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Sub DMinEuro()
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.HasFormula = True Or IsNumeric(Zelle) = False \_
Or IsEmpty(Zelle) Or IsDate(Zelle) Then
Else
Zelle = Zelle / 1.95583
End If
If IsEmpty(Zelle) Or IsDate(Zelle) Then
Else
Zelle.NumberFormat = "#,##0.00 €;-#,##0.00 €"
End If
Next Zelle
End Sub
gruss moritzbock
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Wenn Du gleich alle Zellen markierst, geht es auch in 5 Sekunden - das Makro eintippen dauert länger. Aber mach von mir aus, was Du meinst machen zu müssen
Andreas
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Ich habe aber ein (leider) ähnliches Problem, wo das so nicht praktikabel ist:
Ich muss bei vielen Zellen die Wechselkurse von Euro zu $ mit EINER Zelle verbinden. D. H. alle übrigen Zelle müssen mit den nebem den Euro Preisen stehenden $ Zellen mit eben der einen maßgeblichen Zellen zum Umtauschkurs permanent verbunden sein.
Wie geht dass, wer weiss Rat?
Grüße
Chris
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]