AW: Eine Beispieltabelle könnte hilfreich sein
16.02.2016 10:56:28
hary
Moin
Mal ganz einfach geschrieben.
Textbox3 = Cells(ComboBox1.ListIndex + 4, 6) '--einlesen aus Zelle
If TextBox4 "" And IsNumeric(TextBox4) Then '--prueft ob belegt und eine Zahl
Cells(ComboBox1.ListIndex + 4, 7) = CDbl(TextBox4) '--schreibt Textbox als Zahl in Zelle
Textbox3 = CDbl(Textbox3) + CDbl(TextBox4) '--berechnet Plus in Textbox3
End If
If TextBox5 "" And IsNumeric(TextBox5) Then '--prueft ob belegt und eine Zahl
Cells(ComboBox1.ListIndex + 4, 8) = CDbl(TextBox5) '--schreibt Textbox als Zahl in Zelle
Textbox3 = CDbl(TextBox5) - CDbl(TextBox5) '--berechnet Minus in Textbox3
End If
Cells(ComboBox1.ListIndex + 4, 6) = CDbl(Textbox3) '--wiedergabe in Zelle
gruss hary