Danke
Josef
Private Sub CommandButton14_Click()
Range("a65536").End(xlUp).Offset(1, 0).Value = ComboBox1.Text & _
ComboBox2.Text & TextBox3.Text & TextBox4.Text & ComboBox3.Text & _
ComboBox4.Text & ComboBox5.Text & TextBox47.Text & ComboBox49.Text & _
TextBox50.Text & TextBox51.Text & ComboBox14.Text & TextBox52.Text = TextBox52 & Space(30 - Len(TextBox52)) & _
TextBox53.Text & TextBox111.Text & ComboBox15.Text & TextBox54.Text & _
TextBox113.Text & TextBox114.Text & TextBox115.Text & TextBox116.Text & _
TextBox117.Text & " " & TextBox119.Text & TextBox121.Text & TextBox122.Text & _
ComboBox28.Text & TextBox120.Text & TextBox123.Text & TextBox124.Text & _
TextBox125.Text & TextBox126.Text & TextBox127.Text & " "
End Sub
Private Sub CommandButton14_Click()
Range("a65536").End(xlUp).Offset(1, 0).Value = ComboBox1.Text & _
ComboBox2.Text & TextBox3.Text & TextBox4.Text & ComboBox3.Text & _
ComboBox4.Text & ComboBox5.Text & TextBox47.Text & ComboBox49.Text & _
TextBox50.Text & TextBox51.Text & ComboBox14.Text & TextBox52 & Space(30 - Len(TextBox52)) & _
TextBox53.Text & TextBox111.Text & ComboBox15.Text & TextBox54.Text & _
TextBox113.Text & TextBox114.Text & TextBox115.Text & TextBox116.Text & _
TextBox117.Text & " " & TextBox119.Text & TextBox121.Text & TextBox122.Text & _
ComboBox28.Text & TextBox120.Text & TextBox123.Text & TextBox124.Text & _
TextBox125.Text & TextBox126.Text & TextBox127.Text & " "
End Sub