Supportnet / Forum / Tabellenkalkulation

Wer kann helfen ? Ich habe eine Excel-Tabelle in der zur Zeit alle Betraege in DM stehen. Gibt es eine Moeglichkeit diese DM-Betraege automatisch und komplett in Euro umzurechnen, ohne jede einzelne Zelle erst zu bearbeiten ? Gruss Hinny

So auf der schnelle kann ich Dier nur diesen Macro anbieten:
Sub Euro()

Euro Makro
Tastenkombination: Strg+e

ActiveCell.Value = Round(ActiveCell.Value / 1.95583, 2)
ActiveCell.Offset(1, 0).Activate
End Sub

Ich hoffe es hilft Dir!
CU
Carlo (:-))

P.S.
Nachdem Du den Macro gespeichert hast, klicke die 1. Zelle an und drücke Strg+E (oder die Tastenkombination Deiner Wahl) und bleib drauf bis die ganze Spalte ungerechnet ist!
Ciao
Carlo (:-))

Hallo!

Das mit der Euroumrechnung wird ja immer aktueller.
Mein Excel 97 kennt die Funktion "ROUND" nicht. Was muß installiert oder eingestellt werden, damit es funktioniert?

MfG, Björn.

Hi Björn,

habe auch Excel97, da ist das ne Standardfunktion, heißt allerdings "Runden". Hast Du eine englische Version?

CU
Aliba

Hi Aliba,

ich weiß, RUNDEN ist eine Standardfunktion,
aber im Makro kommt immer: Sub oder Function nicht definiert.

MfG, Björn.

Runden geht nicht im Makro. Da muß man mit Format arbeiten.
Hier meine Version vom Umrechnen in Euro. Es wird ein vorher markierter bereich umgerechnet und Zellen mit Formeln und Texte werden übersprungen.

Sub Euro()

Dim ZF1 As Double
Dim f As String
Dim c As Range
Dim r As Range

On Error GoTo Fehlerbehandlung


Set r = ActiveWindow.RangeSelection

For Each c In r
If (c.HasFormula = False) And (IsEmpty(c.Value) = False) _
And (IsNumeric(c.Value) = True) Then
ZF1 = Format((c.Value / 1.95583), "##,##0.00000")
c.Value = ZF1
End If
Next
Exit Sub

Fehlerbehandlung:
MsgBox "Fehler beim Umrechnen"

End Sub