Hallo zusammen, ich hab folgendes Problem!
Ich würde gern per Makro eine automatische Währungsumrechnung erstellen. Dabei soll auf einem Sheet ein Datensatz importiert werden, der allerdings nicht verändert werden darf!
In diesem Export steht im Field:=18 der Betrag und in Field:=19 die Währung.
Die Währung soll in EUR umgerechnet werden und am Ende addiert. Es gibt mehrere Möglichkeiten für die Währungen (EUR,USD,JPY...)
Auf einem weiteren Sheet habe ich per Dropdown Menü zwei Auswahlmöglichkeiten erstellt. Zunächst wählt man die Währung aus, danach das Jahr für den strategischen Wechselkurs.
Per Makro würde ich dann gerne auf einem dritten Sheet das Ergebnis in eine bestimmte Zelle "ausspucken" lassen. Dafür habe ich aber auch schon einen Code geschrieben..Bsp:
Dim vRet As Variant
vRet = Application.Subtotal(9, Range("R2:R10000"))
Sheets("Übersicht_Auslesung").Range("I28").Value = vRet
Kann mir da einer weiterhelfen?
Vielen Dank im Voraus!
|