Von UserForm aus soll ein Ausfüllformular erscheinen. Eingabe, danach auf cmdPaste_Click
Naja es funktioniert nicht? Ist eine Vorführaufgabe. Keine Ahnung warum??
Davor ging ja alles, wo man die zellen gefühlt hat? Vielleicht wegen den txtboxen?Die Art, der Übergabe?
Private Sub cmdPaste_Click()
Dim intY As Integer
With ThisWorkbook.Worksheets("Tabelle3")
intY = 2
Do Until .Cells(intY, 1) = ""
intY = intY + 1
Loop
.Cells(intY, 1) = txtID
.Cells(intY, 2) = txtNachname
.Cells(intY, 3) = txtVorname
.Cellls(intY, 4) = txtGeschlecht
.Cellls(intY, 5) = txtAlter
End With
End Sub
Da kommt der Fehler: Run-Time error '438'
Object doesnt support this property or method
|