Berechnung in VBA

Computer: Software & Programmierung Office Software
1

Hallo Experten,
wie kann ich in einem vorhandenem Makro
berechnen?
Ungefähr so:
ich stelle den Curser in irgend eine Zelle.
Dann formatiere ich die Zelle mit Hilfe eines Makros als Euro-Währung.
Nun möchte ich automatisch den eingegebenen Zahlenwert mit dem offiziellen Kurs (ändert sich nicht) umrechnen.
Der Wert der Zelle müßte ausgelesen werden und dann mit 1,9554 dividiert werden.
Geht das ?
PS Win95 / Excel95
Danke im Voraus
Roland

2

Hallo Roland,

mach’s mal so:

With Selection
 .NumberFormat = "#,##0.00 [$€-1];-#,##0.00 [$€-1]"
 .Value = .Value / 1.95583
End With 'Selection

Die erste Zeile hättest Du auch selber rausgekriegt, indem Du einfach ein Makro aufgezeichnet hättest. Hilft oft weiter.

Kristian

3

Hallo Kristian,
vielen Dank für die schnelle Antwort.
Habe jetzt durch probieren folgende Lösung gefunden:

Sub Euro()
Selection.NumberFormat = "#,###,##0.00 \€ "
ActiveCell = ActiveCell / 1.95583
End Sub
das geht auch

Es scheinen eben doch viele Wege nach Rom zu führen :smile:

Beste Grüße Roland

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

… und nach Köln erst … :wink: - o.T. -
o.T.

Es scheinen eben doch viele Wege nach Rom zu führen :smile: