Ich nutze folgenden Code:
Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If ComboBox3 = "" Then
Exit Sub
Else
ComboBox3 = Format(ComboBox3, "0.000")
End If
If TextBox6 = "Dfr." Then
ComboBox3 = 0#
End If
ComboBox3 = Format(ComboBox3, "0.000")
TextBox7 = CDbl(TextBox3) + CDbl(ComboBox3)
TextBox7 = Format(TextBox7, "0.000")
End Sub
Wenn nun in TextBox6 das Wort Dfr. steht, sollte eigentlich in der ComboBox die Null in der entsprechenden Formatierung erscheinen. Tut es aber leider nicht! Verzweifle bereits. Wer weiss Rat und würde mir verraten wie ich es denn richtig machen sollte?Gruß Frank H.