Textbox inhalt in Tabelle
13.01.2010 10:51:55
Helge Kuehn
Mahlzeit,
Ich will den Inhalt der Textbox 1-8 ("txt1-8") in eine vorhandene mit daten(!) Tabelle1 kopieren. Die Daten sollen am ende der Tab eingefuegt werden. Irgendwie kann ich nicht in Spalte A starten!
Hier der QT:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim s As Integer
s = Worksheets("Product list").Cells(Rows.Count, 1).End(xlUp).Row
With Worksheets("Product list")
For i = 1 To 7
.Cells(s, i + 1) = Me("txt" & i)
Next i
End With
End Sub
wenn ich aus For i = 0 mache gibt es einen Fehler
Hat jmd eine loesung?
Anzeige