![]() |
|
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
|
|
|
|
|
|
|
| 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: [ 1420 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 