Hallo,
wir müssen bei uns Tabellen die in DM sind auf Euro umstellen.
Dies müssen wir in Excel und Access tun.
Kennt jemand irgendwelche Tools, die einem das erleichtern??
Danke für Eure Hilfe.
Gruß
Stefan
Hallo Stefan,
entsprechend angepaßte Zeichensätze sowie ein Berechnungstool für Euro gibt’s auf der Microsoft-Homepage zum Runterladen (wo genau weiß ich jetzt nicht, mußt mal suchen).
Um die vorhandenen Zahlen umzurechnen, kannst Du ja über „Inhalte einfügen“ alle entsprechenden Zellen durch 1,95583 teilen.
Gruß, Kubi
Hallo!
Es gibt ein Tool, mit dem ich schon einige erfolgreiche Umrechnungen durchgeführt habe. Es nennt sich FIS Euro Tools. Mit diesem Tool lassen sich einzelne Bereiche und auch ganze Tabellen umrechnen.
Zu finden unter www.fis-online.de
MfG
R. Bauermann
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Stefan,
ich habe sowas für Excel mal angefangen zu programmieren. Wenn Du mit VBA umgehen kannst, dann ist dieser Code ganz hilfreich:
Das Makro sucht Zellen, die keine Formel enthalten und in „DM“ formatiert sind, rechnet diese um und ändert das Zahlenformat auf €. Zellen mit Formeln werden, wenn sie „DM“ formatiert sind, nur in €-Format geändert.
Kostet nichts außer einem Danke.
Tschö, Manfred
Sub DM_ersetzen()
Dim zelle As Range
For Each zelle In ActiveSheet.UsedRange
If zelle.HasFormula Then
If zelle.NumberFormatLocal = „#.##0,00 DM“ Then
zelle.NumberFormatLocal = „#.##0,00 €“
End If
GoTo weiter
End If
If IsNumeric(zelle.Value) Then
If zelle.NumberFormatLocal = „#.##0,00 DM“ Then
zelle.Value = zelle.Value / 1.95583
zelle.NumberFormatLocal = „#.##0,00 €“
End If
End If
weiter:
Next zelle
End Sub
Hallo Manfred,
werde es ausprobieren.
Herzlichen Dank für Dein Tipp
Gruß
Stefan
Hallo Stefan,
ich habe sowas für Excel mal angefangen zu programmieren. Wenn
Du mit VBA umgehen kannst, dann ist dieser Code ganz
hilfreich:
Das Makro sucht Zellen, die keine Formel enthalten und in „DM“
formatiert sind, rechnet diese um und ändert das Zahlenformat
auf €. Zellen mit Formeln werden, wenn sie „DM“ formatiert
sind, nur in €-Format geändert.Kostet nichts außer einem Danke.
Tschö, ManfredSub DM_ersetzen()
Dim zelle As Range
For Each zelle In ActiveSheet.UsedRange
If zelle.HasFormula Then
If zelle.NumberFormatLocal = „#.##0,00 DM“ Then
zelle.NumberFormatLocal = „#.##0,00 €“
End If
GoTo weiter
End If
If IsNumeric(zelle.Value) Then
If zelle.NumberFormatLocal = „#.##0,00 DM“ Then
zelle.Value = zelle.Value / 1.95583
zelle.NumberFormatLocal = „#.##0,00 €“
End If
End If
weiter:
Next zelleEnd Sub