Ich habe diesen VBA Code in mein Tool eingefügt. Dieser Code schreibt die erste Eingabe in die Zeile 10.
Nun habe ich den Code so zu ändern versucht, das er in die 2te Zeile schreibt.... also statt 11 Then 2 Then eingegeben. Nur da schreibt er nichts mehr hinein... oder nur mehr 3 Teile und keine 6 Angaben.
Was muß ich verändern, daß alle 6 Teile in die Zeile 2 geschrieben werden ?
Danke
chris
Option Explicit
Private Sub CommandButton1_Click()
Dim i As Long
i = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
If i = 12 Then
Cells(i, 1) = TextBox1.Value
Cells(i, 2) = TextBox2.Value
Cells(i, 3) = TextBox3.Value
Cells(i, 4) = TextBox4.Value
Cells(i, 5) = TextBox5.Value
Cells(i, 6) = TextBox6.Value
End If
End Sub