Sorry, bisschen schlampig erläutert.
Siehe unten, ich lieste dann einfach sämtliche Textboxen auf die befüllt werden sollen
1
2
3
4
5
6
7
8
9
10
11
12
'in UserForm1
Option Explicit
Private Sub CommandButton1_Click()
Dim usf As UserForm2
Set usf = New UserForm2
usf.TextBox1.Text = Me.TextBox1.Text
usf.TextBox2.Text = Me.TextBox2.Text
usf.TextBox3.Text = Me.TextBox3.Text
usf.Show
End Sub