' Version: 1.3
' Datum: 31.05.2001
' Die Version 1.1 überprüft- im Gegensatz zur
' Version 1.0- anhand der gelben Hintergrundfarbe, ob die Zellen
' bereits umgerechnet wurden. In diesem Falle spart das Makro
' diese Zellen einfach aus und führt die Berechnung nur in den
' nicht-gelben Zellen durch.
' Version 1.2: hier ist die noch fehlende Rundung auf 2 Stellen
' dazugekommen.
' Version 1.3: enthält zusätzlich eine kleine Fehlerbehandlung,
' weil zusammengesetzte markierte Bereiche wegen des
' Resize-Befehls sonst immer zu Fehlermeldungen führen
Dim Zelle As Range
Dim Ausgangswaehrung As Double
Dim Zielwaehrung As Double
Dim ZeilenAnzahl As Integer
Dim Bereich As String
Bereich = Selection.Address
ZeilenAnzahl = Selection.Rows.Count
On Error GoTo Ausstieg_wegen_Fehler
'zusammengesetzte
' Bereiche wurden sonst dauernd zu einer Fehlermeldung
' führern
For Each Zelle In Selection
If Zelle.Interior.ColorIndex <> 27 Then
Ausgangswaehrung = Zelle.Value
Zielwaehrung = Application.WorksheetFunction.Round _
(Ausgangswaehrung / 1.95583, 2) 'Divisor für DM nach Euro
Zelle.Value = Zielwaehrung
Zelle.Interior.ColorIndex = 27
End If
Next Zelle
Range(Bereich).Resize(1, 1).Select
Selection.Offset(ZeilenAnzahl, 0).Select
Ausstieg_wegen_Fehler:
