Währungsumrechner
03.04.2006 15:50:49
Christian
vielleicht kann mir jemand weiterhelfen...ich habe einen Währungsumrechner geschrieben um ein Sheet von SKK in und CHF umzuwandeln. Problem: Basis sind SKK. Wird das Sheet aber in geschlossen und danach wieder geöffnet werden die Beträge in nochmals in umgerechnet. Ist es möglich dort eine Sperre einzubauen, dass das Sheet beim Schliessen automatisch auf SKK zurückrechnet und ich somit immer die "richtigen" Zahlen habe?
Anbei der Code:
Private Sub CommandButton1_Click()
Dim rng As Range
Static direction As Byte
Const faktor As Double = 0.02374 ' SKK-EURO
Range("C5:N6,Q5:Q6,C10:N10,Q10,C12:N16,Q12:Q16,C17:N17,Q17,C19:N20,Q19:Q20,C24:N24,Q24,C28:N28,Q28,C32:N33,Q32:Q33").Activate
If direction = 0 Then
direction = 1
For Each rng In Selection
If IsNumeric(rng) Then rng = rng * faktor
rng.NumberFormat = "#,##0.00 [$]"
Next
Else
direction = 0
For Each rng In Selection
If IsNumeric(rng) Then rng = rng / faktor
rng.NumberFormat = "#,##0.00 [$SKK]"
Next
End If
End Sub
Würde mich über Feedback freuen, grüsse christian