Datenbank
08.05.2006 00:17:34
Thanh
Ich habe vor einigen Tagen einen guten Tipp bekommen wie ich ein Daten von einem UserForm in eine Tabelle übertragen kann das hat auch bestens geklappt nun habe ich ein zweites UserForm angelegt auch zur Übertragung von Daten doch da bekomme ich eine fehlermeldung:
"laufzeitfehler 424" Objekt erforderlich.
Hie hab ich noch den Code falls Ihr damit etwas anfanen könnt.
Private Sub CommandButton1_Click()
With Sheets("Datenbank").Cells(65536, 2).End(xlUp)
.Offset(1, 0) = TexBox1
.Offset(1, 1) = TexBox2
.Offset(1, 2) = TexBox3
.Offset(1, 3) = TexBox4
.Offset(1, 4) = TexBox5
.Offset(1, 5) = TexBox6
.Offset(1, 6) = TexBox7
.Offset(1, 7) = TexBox8
.Offset(1, 8) = TexBox9
.Offset(1, 9) = TexBox10
.Offset(1, 10) = TexBox11
.Offset(1, 11) = TexBox12
.Offset(1, 12) = TexBox13
.Offset(1, 13) = TexBox14
.Offset(1, 14) = TexBox15
.Offset(1, 15) = TexBox16
End With
TexBox1 = ""
TexBox2 = ""
TexBox3 = ""
TexBox4 = ""
TexBox5 = ""
TexBox6 = ""
TexBox7 = ""
TexBox8 = ""
TexBox9 = ""
TexBox10 = ""
TexBox11 = ""
TexBox12 = ""
TexBox13 = ""
TexBox14 = ""
TexBox15 = ""
TexBox16 = ""
TexBox1.SetFocus
End Sub
Vielen Dank für weitere Tipps
Gruss Thanh
Anzeige