ich lasse mir Daten aus einem Tabellenblatt mit
TextBox8.Text = Cells(r, 8).Text
TextBox9.Text = Cells(r, 9).Text
in einer Userform anzeigen.
Frage: Kann eine Textbox10 die Summe von TB8 + TB 9 nehmen?
Gruß Reinhardt.
Private Sub CommandButton1_Click()
On Error GoTo Fehler
TextBox3.Text = CSng(TextBox1.Text) + CSng(TextBox2.Text)
Exit Sub
Fehler:
TextBox3.Text = "Addition nicht möglich"
End Sub
Gruß- MichaSub test()
Const a = 2.25
MsgBox Round(a, 1)
MsgBox WorksheetFunction.Round(a, 1)
End Sub
Gruss- MichaTextBox3.Text = Format(CSng(TextBox1.Text) + CSng(TextBox2.Text), "##,##0.00")
Gruß