Private Sub CommandButton3_Click()
With Sheets("Berechnung") 'Hier musst du deinen Tabellennamen eingeben
Range("B6").Value = CDbl(TextBox1.Value) ' Du musst den Text in eine Zahl umwandeln. VBA erkennt das Komma als Tausender Trennzeichen
.Range("C6") = .Range("C6") + .Range("B6")
.Range("B6").Select
End With
End Sub