Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Berechnung in UF wird nicht durchgeführt ...

Berechnung in UF wird nicht durchgeführt ...
15.03.2007 20:46:00
proxima05
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Berechnung in UF wird nicht durchgeführt ...
15.03.2007 21:09:00
Uduuh
Hallo,
wird die Berechnung überhaupt durchgeführt?
Setze dir mal einen Haltepunkt bei
   If i_1.Value > 0 And p2.Value > 0 Then

und geh den Code mit F8 weiter durch.
Versuch auch mal
If (i_1*1)> 0 And (p2*1) > 0 Then
Gruß aus’m Pott
Udo

AW: Berechnung in UF wird nicht durchgeführt ...
16.03.2007 09:37:58
proxima05
Udo,
wenn ich einen Haltepunkt setze und dann mit F8 weiter mache, wird das UF auf. In dieses gebe ich dann die Werte für i_1 ein. Wenn ich dann mit Tab in die Textbox i_2 wechsle springt Excel in den VBA-Editor zurück und markiert mir den Sub für i_1, der wie folgt aussieht
****************************

Private Sub i_1_AfterUpdate()
i_1 = Format(i_1, "0.00") & "%"
End Sub

****************************
Woran liegt das, etwas am Zahlenformat?
Danke für Hilfe
Gruß
Ralph
Anzeige

13 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige