Hallo Ihr,
ich hab´ ein riesiges Leistungsverzeichnis mit zwei Spalten DM- Preise.
Weiß jemand, wie ich alle Preise automatisch auf EURO umrechnen lassen kann ?
Ich brauche diesen Vorgang nur einmal - benutze das Leistungsverzeichnis dann weiter mit den EURO- Preisen.
Gruß
Uwe
Hallo Uwe!
Du kopierst nachfolgende Zeilen einfach in ein VBA-Fenster: Extras - Makro - Visual Basic Editor
Das Script noch etwas anpassen (Range(A1:A10) - Format - ATS bzw. DM auswählen), danach den Makro einfach ausführen über Extras - Makro - Makros - DMEuro
— snip —
Function DM_EURO(DM)
’ Diese Function rechnet DM auf EURO
faktor = 1.95583
DM_EURO = Application.WorksheetFunction.Round(DM / faktor, 2)
End Function
Function ATS_EURO(ATS)
’ Diese Function rechnet ATS auf EURO
faktor = 13.7603
ATS_EURO = Application.WorksheetFunction.Round(ATS / faktor, 2)
End Function
Sub DMEuro()
’ Hier den Bereich definieren
For Each z In Range(„A1:A10“)
If IsNumeric(z.Value) = True Then
’
’ Für Umrechnen von ATS einfach
’ den Eintrag ändern
z.Value = DM_EURO(z)
’ z.Value = ATS_EURO(z)
’
’ hier kann das Format angepasst werden
z.NumberFormat = „#,##0.00 [$Eur]“
End If
Next
End Sub
— snip —
Bei Fragen kannst Du mich gern nochmals kontaktieren.
Cu
Wolfgang
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
ich hab´ ein riesiges Leistungsverzeichnis mit zwei Spalten
DM- Preise.
- Einzelpreis
- Gesamtpreis aus Einzelpreis mal Stückzahlspalte
Weiß jemand, wie ich alle Preise automatisch auf EURO
umrechnen lassen kann ?
Ich brauche diesen Vorgang nur einmal - benutze das
Leistungsverzeichnis dann weiter mit den EURO- Preisen.
Hi Uwe,
du schreibst nicht ob du 97 oder 2000 hast, bei excel2000 ist ein Addin mit der funktion Euroconvert() dabei…
Du kannst in eine leere Zelle 1,95583 schreiben, mit Strg-C einlesen, dann alle Zellen mit den Einzelpreisen markieren und mit Bearbeiten—Inhalte einfügen—Dividieren die Werte umrechnen.
Gruß
Reinhard