Berechnung in UF wird nicht durchgeführt ...
15.03.2007 20:46:00
proxima05
mit der Unterstützung von Rudi habe ich eine Formel umgesetzt, die mir aus mehreren Textboxen und einem Zellwert das Ergebnis in ein weitere Textbox innerhalb des UF schreiben soll .... leider kommt als Ergebnis nur das Prozentzeichen in der Textbox "ir_interp" an,
Nach dem Update von "p2" soll die Berechnung mit
i_1 (Prozentwert)
i_2 (dto.)
p1 (Ganzzahl)
p2 (Ganzzahl)
Wert aus P6 (Zahl mit Dezimalstelle)
für "ir_interp" (Prozentwert) durchgeführt werden
Der gesamte Code dafür sieht wie folgt aus:
**************************************
Private Sub p2_AfterUpdate()
On Error GoTo Fehler
Zahl = CDbl(p2.Value)
p2.Value = Format(Zahl, "#,##0")
Exit Sub
i_1 = Format(i_1, "0.00") & "%"
i_2 = Format(i_2, "0.00") & "%"
p1 = Format(p1, "#,##0")
p2 = Format(p2, "#,##0")
If i_1.Value > 0 And p2.Value > 0 Then
ir_interp = i_1 + (i_2 - i_1) * ((Worksheets("Index").Range("P6") - p1) / (p2 - p1)) + ActiveSheet.Range("P6")
End If
Fehler:
MsgBox "Input for Period #2 is not numeric ..."
End Sub
Private Sub ir_interp_Enter()
ir_interp = Format(ir_interp, "0.00") & "%"
End Sub
**************************************
Wäre toll mir da jemand einen Tipp geben könnte, woran das liegt.
Danke
Ralph
Anzeige