Tipp 0037 EURO-Konvertierung
Autor/Einsender:
Datum:
  Angie
17.04.2001
Entwicklungsumgebung:   Excel 97
In diesem Beispiel werden sowohl alle DM-Beträge auf dem aktiven Tabellenblatt in Euro-Beträge umgewandelt als auch das Währungszeichen ersetzt. Die Umrechnung wird nur bei Zellen ausgeführt, die einen numerischen Wert enthalten, d.h. Zellen die leer sind, Text, Datum oder Formeln enthalten, werden von der Konvertierung ausgeschlossen.
 
Option Explicit

Sub DMEuroUmrechnen()
'DM-Beträge -> Euro-Beträge
  Dim zelle As Range

  For Each zelle In ActiveSheet.UsedRange
    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

Sub EuroDMUmrechnen()
'Euro-Beträge -> DM-Beträge
  Dim zelle As Range

  For Each zelle In ActiveSheet.UsedRange
    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
 
Weitere Links zum Thema
Support for the new Euro currency symbol in Office

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
Excel-Version
95
97
2000
2002 (XP)
2003
2007
2010


Download  (10,6 kB) Downloads bisher: [ 1349 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Dienstag, 30. August 2011