Währungen in Variable speichern
26.12.2005 22:24:58
Peter
Ich möchte Kursumrechnungen vornehmen. Was muss ich vorkehren, damit als Default immer der letzte eingegebene Kurs (anstelle des im Code erfassten Defaultwertes) erscheint, und zwar auch, wenn ich das erst am nächsten Tag der Fall ist, also das Programm zwischenzeitlich beendigt wurde?
Sub Devisenkurse()
Dim eur As String
Dim usd As String
Dim yen As String
eur = Application.InputBox("Aktueller Kurs eingeben", "EUR", 1.5, , , , 1)
usd = Application.InputBox("Aktueller Kurs eingeben", "USD", 1.3, , , , 1)
yen = Application.InputBox("Aktueller Kurs eingeben", "YEN", 1.1295, , , , 1)
End Sub
Danke für Feedback
Peter