Beste mensen,
Er zit ergens een fout in deze formule, maar ik kom er zelf niet achter waar.
Private Sub CommandButton2_Click()
Sheets("Invoer finan.").Cells(Rows.Count, 26).End(xlUp).Offset(1).ColumnSize(, 11) = Split(TextBox1.Text & "|" & TextBox2.Text & "|" & TextBox3.Text & "|" & TextBox4.Text & "|" & TextBox5.Text & "|" & TextBox6.Text & "|" & TextBox7.Text & "|" & TextBox8.Text & "|" & TextBox9.Text & "|" & TextBox10.Text, "|" & TextBox11.Text, "|")
For i = 1 To 11
Me("TextBox" & i).Value = ""
Next
End Sub
Ik hoop dat jullie het zien.
Met vriendelijke groet.
Er zit ergens een fout in deze formule, maar ik kom er zelf niet achter waar.
Private Sub CommandButton2_Click()
Sheets("Invoer finan.").Cells(Rows.Count, 26).End(xlUp).Offset(1).ColumnSize(, 11) = Split(TextBox1.Text & "|" & TextBox2.Text & "|" & TextBox3.Text & "|" & TextBox4.Text & "|" & TextBox5.Text & "|" & TextBox6.Text & "|" & TextBox7.Text & "|" & TextBox8.Text & "|" & TextBox9.Text & "|" & TextBox10.Text, "|" & TextBox11.Text, "|")
For i = 1 To 11
Me("TextBox" & i).Value = ""
Next
End Sub
Ik hoop dat jullie het zien.
Met vriendelijke groet.