ControlSource-Eigenschaft im VBA einsetzen ??

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim Text_0 As Double
Dim Text_1 As Double
Dim Text_2 As Double
Dim Text_3 As Double
Dim Text_4 As Double
Set ws = ThisWorkbook.Worksheets("Tabelle1")
i_row = 3
While ws.Cells(i_row, 2).Value <> ""
i_row = i_row + 1
Wend
Text_0 = Val(UserForm1.Text_1.Text)
Text_1 = Val(UserForm1.Text_1.Text)
Text_2 = Val(UserForm1.Text_2.Text)
Text_3 = Val(UserForm1.Text_3.Text)
Text_4 = Val(UserForm1.Text_3.Text)
ws.Cells(i_row, 2).Value = Me.Text_0.Text
ws.Cells(i_row, 3).Value = Me.Text_1.Text
ws.Cells(i_row, 4).Value = Me.Text_2.Text
ws.Cells(i_row, 5).Value = Me.Text_3.Text
ws.Cells(i_row, 6).Value = Me.Text_4.Text
End Sub
Unter dieser Rubrik kann du sehen was ich meine.
https://www.herber.de/bbs/user/267.xls