Inhalt aus Textbox/userform in Zellen kopieren
01.06.2007 09:39:00
Rüdiger
ich habe eine userform mit 10 Textboxes und eine button. Wenn der Button betätigt wird, soll der inhalt in Zeile X (beginnt bei Spalte B) kopiert werden. X wird durch einen Zähler bestimmt, der sich in Zelle A30 befindet.
Ich bin nicht gut in Schleifen basteln. Bisher habe ich nur folgendes zustande gebracht:
Private Sub CommandButton1_Click()
Sheets("Age Profile").Range("B1") = txt_a1.Value
Sheets("Age Profile").Range("c1") = txt_a2.Value
Sheets("Age Profile").Range("d1") = txt_a3.Value
Sheets("Age Profile").Range("e1") = txt_a4.Value
Sheets("Age Profile").Range("f1") = Txt_a5.Value
Sheets("Age Profile").Range("g1") = txt_a6.Value
Sheets("Age Profile").Range("h1") = txt_a7.Value
Sheets("Age Profile").Range("i1") = txt_a8.Value
Sheets("Age Profile").Range("j1") = txt_a9.Value
Sheets("Age Profile").Range("k1") = txt_a10.Value
End Sub
Das hilft leider nicht viel weiter.
Vielen Dank im Voraus. Gruß Rüdiger