Ganz einfach gestrickt. Bin noch Anfänger bei VBA.
Private
Sub
CommandButton1_Click()
Range(
"B4"
).Value = TextBox1.Value
Range(
"C4"
).Value = ComboBox1.Value
Range(
"D4"
).Value = ComboBox2.Value
Range(
"E4"
).Value = TextBox2.Value
Range(
"F4"
).Value = TextBox3.Value
Range(
"G4"
).Value = TextBox4.Value
Range(
"H4"
).Value = TextBox5.Value
Range(
"I4"
).Value = ComboBox3.Value
Range(
"J4"
).Value = TextBox6.Value
UserForm2.Hide
TextBox1.Text =
""
TextBox2.Text =
""
TextBox3.Text =
""
TextBox4.Text =
""
TextBox5.Text =
""
TextBox6.Text =
""
ComboBox1.Text =
""
ComboBox2.Text =
""
ComboBox3.Text =
""
End
Sub