Hallo!
Hab zwei Optionsfelder in ner Excel-Tabelle. CHF und EUR. Jetzt möchte ich, dass Excel die Währung über einen Umrechnungskurs, der händisch in einer eigenen Zelle eingegeben wird, berechnet. Bin im Moment ziemlich ratlos.
mfg
ck
Coolpix ck4ever „Optionsfelder + Berechnung“
Hi,
auf den Eigenschaften des Optionsbuttons (im Editiermodus) wählst du "Code anzeigen"
Du sprichst die einzelnen Zellen über Range(" Spalte Zeile") an
hier ist
c5 der Basisbetrag
d5 die Ziel / Ergebniszelle
f3 die zelle mit dem Umrechnungskurs
Private Sub OptionButton1_Click()
Range("d5") = Range("c5") * Range("f3")
End Sub
greets ;-)
Borlander ck4ever „Optionsfelder + Berechnung“
Hallo ck,
prüfe einfach mit mit der Tabellenfunktion WENN den Rückgabewert der Radiogroup und gib dementsprechend der gewünschten Währung ausgibt.
Beispiel
A1 =Ausgabeverknüpfung der Rediogroup (mit 1=€, 2=CHF)
B1 =€-Betrag
C1 =Umrechnungskurs €->CHF
D1 =WENN(A1=1; B1; B1*C1)
VBA (wie von Coolpix vorgeschlagen) ist dafür _nicht_ notwendig...
Gruß
Borlander
