Hallo zusammen,
ist vermutlich was ganz einfaches, aber irgendwie will die Technik nicht, wie ich will.
Ich habe eine Userform mit mehreren Textboxen. Nun möchte ich, dass die Daten aus Textbox1 nicht nur in das erste Arbeitsblatt eingetragen werden, sondern auch in das zweite und dritte an der gleichen Stelle. Der ursprüngliche Code sah so aus:
Also dachte ich mir, ich ändere es einfach hierzu ab:
Allerdings hat das nicht den gewünschten Effekt gebracht, die Daten werden auch weiterhin nur ins erste Arbeitsblatt eingetragen. Was mache ich falsch und wie muss ich den Code ändern, dass er mir die Daten aus TextBox1 auf allen drei Arbeitsblättern an der gleichen Stelle einfügt?
Danke schonmal im Voraus
VG Katey
ist vermutlich was ganz einfaches, aber irgendwie will die Technik nicht, wie ich will.
Ich habe eine Userform mit mehreren Textboxen. Nun möchte ich, dass die Daten aus Textbox1 nicht nur in das erste Arbeitsblatt eingetragen werden, sondern auch in das zweite und dritte an der gleichen Stelle. Der ursprüngliche Code sah so aus:
Quellcode
- Private Sub CommandButton1_Click()
- On Error Resume Next
- Dim z As Integer
- z = Range("A65536").End(xlUp).Row + 1
- Cells(z, 1).Value = TextBox1.Text
- Cells(z, 24).Value = TextBox14.Text
- For sp = 2 To 13
- Cells(z, sp) = Replace(Controls("TextBox" & sp).Text, ".", "") * 1
- Next sp
- Range("A65536").End(xlUp).Select
- Unload Me
- End Sub
Also dachte ich mir, ich ändere es einfach hierzu ab:
Quellcode
- Private Sub CommandButton1_Click()
- On Error Resume Next
- Dim z As Integer
- z = Range("A65536").End(xlUp).Row + 1
- Cells(z, 24).Value = TextBox14.Text
- For sp = 2 To 13
- Cells(z, sp) = Replace(Controls("TextBox" & sp).Text, ".", "") * 1
- Next sp
- Sheets(Array("Kundendaten", "Berechnung", "Ergebnis")).Select
- Cells(z, 1).Value = TextBox1.Text
- Range("A65536").End(xlUp).Select
- Unload Me
- End Sub
Allerdings hat das nicht den gewünschten Effekt gebracht, die Daten werden auch weiterhin nur ins erste Arbeitsblatt eingetragen. Was mache ich falsch und wie muss ich den Code ändern, dass er mir die Daten aus TextBox1 auf allen drei Arbeitsblättern an der gleichen Stelle einfügt?
Danke schonmal im Voraus
VG Katey