Daten aus userForm erfassen
03.12.2004 21:22:40
joel
hab folgendes problem:
ich hab ne maske mit 11 eingabefeldern, deren werte mit "erfassen" in eine tabelle übernommen werden sollen. und zwar ab zeile 12, spalte b in die jeweils nächste freie zeile.
ich bekomme bei folgender vba ständig eine fehlermeldung bei Range ("....
Private Sub Erfassen_Click()
Set Frm = UserForm3
Sheets("Rohstoffliste mit Nährwerten").Activate
Range("b65536").End(xIup).Offset(0, 1).Select
With Frm
Active.Cell.Value = .TextBox1.Value
ActiveCell.Offset(0, 1).Value = .TextBox2.Value
ActiveCell.Offset(0, 2).Value = .TextBox3.Value
ActiveCell.Offset(0, 3).Value = .TextBox4.Value
ActiveCell.Offset(0, 4).Value = .TextBox5.Value
ActiveCell.Offset(0, 5).Value = .TextBox6.Value
ActiveCell.Offset(0, 6).Value = .TextBox7.Value
ActiveCell.Offset(0, 7).Value = .TextBox8.Value
ActiveCell.Offset(0, 8).Value = .TextBox9.Value
ActiveCell.Offset(0, 9).Value = .TextBox10.Value
ActiveCell.Offset(0, 10).Value = .TextBox11.Value
End With
End Sub
vielen dank schon mal,
joel