ich bin auf der Suche nach einer besseren Lösung für eine Summenberechnung in einer Userform. Wer kann mir helfen?
Also: ich habe eine userform mit Textboxen als Eingabefelder, diese werden nach dem verlassen wie folgt formatiert.
Me.TextBox1.Value = Format(Me.Me.TextBox1.Value, "#,##0.00;;\")
Wenn ich nun in einer Sub Addieren() nun Inhalte der Textboxen addiere:
(Werte: Textbox1 = 1.005,55 und Textbox2 = 2.000,00)
Me.Summe.Value = Me.TextBox1.Value + Me.TextBox2.Value
erhalte ich folgendes Ergebnis: (1.005,552.000,00)
Um nun auf ein Ergebnis zu kommen mache ich folgendes:
Sub Addieren()
Dim zahl1 As Double
Dim zahl2 As Double
If len(Me.TextBox1.Value) > 0 Then
zahl1 = Me.TextBox1.Value
Else
zahl1 = 0
end if
If len(Me.TextBox2.Value) > 0 Then
zahl2 = Me.TextBox2.Value
Else
zahl2 = 0
end if
Me.Summe.Value = zahl1 + zahl2
End sub
Ich habe das so umständlich gemacht, weil wenn ich
zahl1 = Me.TextBox1.Value setze und der Inhalt der Textbox ist ""
dann gibt es an dieser Stelle einen Absturz.
Ich hoffe Ihr könnt mein Problem verstehen.
Für Eure Hilfe bedanke ich mich schon mal im voraus.
Gruß Raik