Berechnung bricht bei nachkommastellen ab!
29.09.2005 10:12:15
de
Ich habe da ein kleines Problem, hinter dessen Lösung ich einfach nicht steige.
Ich habe mir ein Userform gebastelt, mit dessen Hilfe ich die Veränderung einer Zelle durch eine Formel in einer anderen Zelle darstellen möchte. Das heisst ich gebe in das Userform einen Zahlenwert ein und Excel zeigt mir in der nebenstehenden Spalte den neuen Wert an, oben in der Eingabezeile aber die Formel mit dem Urpsrungswert +/- der Veränderung.
Das alles funktioniert super, solange ich als Ursprungswert keine Werte mit Nachkommastellen habe, sprich bei ganzen Zahlen läuft es ohne Probleme.
Private Sub btnEinfügen_Click()
'Neuen Wert als Formel in aktive Zelle einfügen.
'Damit bleibt der alte Wert sichtbar und die Änderung dokumentiert.
Dim Formel As String
Dim Absolut As Double
If Me.txtAbsolut = "" Then
Absolut = 0
Else
Absolut = Me.txtAbsolut
End If
Formel = "=" & ActiveCell.Offset(0, 1).Value & IIf(Me.opb2, " - ", " + ") & Absolut
ActiveCell.Formula = Formel
Unload frmKorrektur
End Sub
Bei Nachkommastellen gibt er mir in der Zeile ActiveCell.Formula = Formel beim ausführen eine Anwendungs- oder Objektdefinierten felhler aus. ich weiss nicht mehr weiter....
Hoffentlich habe ich mich deutlich genug ausgedrückt und ihr könnt mir helfen!
Habt bitte Nachsicht, bin neu hier :-D