Versuchs mal so, musst nur noch die namen anpassen, falls diese anders heißen..
Private Sub CommandButton1_Click()
If UserForm1.TextBox1.Value <> "" Then
Range("a2").Value = UserForm1.TextBox1.Value
Else: Range("a2").Value = "0"
If UserForm1.TextBox2.Value <> "" Then
Range("b2").Value = UserForm1.TextBox2.Value
Else: Range("b2").Value = "0"
If UserForm1.TextBox3.Value <> "" Then
Range("c2").Value = UserForm1.TextBox3.Value
Else: Range("c2").Value = "0"
If UserForm1.TextBox4.Value <> "" Then
Range("d2").Value = UserForm1.TextBox4.Value
Else: Range("d2").Value = "0"
End If
End Sub
|