userform daten übertragen in neues sheet
Felix
Mit Hilfe vom Archiv habe ich mir codes zusammen geflickt, mit denen ich Daten aus einer Userform in eine Exceltabelle einfügen möchte.
Das funktioniert halbwegs mit diesem code, allerdings klappt es nicht, die werte in die erste freie Zeile schreiben zu lassen. Es kommt der fehler "Application defined or object defined error" für die kursiv markierte zeile
Private Sub CommandButton1_Click()
Dim z As Integer
z = Sheets("overview").Range("A65565").End(xlUp).Row + 1
Cells(z, 1) = TextBox8
Cells(z, 2) = TextBox1
Cells(z, 3) = TextBox2
Cells(z, 4) = TextBox3
Cells(z, 5) = TextBox4
Cells(z, 6) = TextBox5
Cells(z, 7) = TextBox6
Cells(z, 9) = TextBox7
Anschließend möchte ich ein neues Tabellenblatt erstellen und einige der kopierten Wert dort _
hinein kopieren. Neues Tabellenblatt funktioniert hiermit:
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets.Add
ws.Name = TextBox8
UserForm.Hide
End Sub
Sorry für die Flickerei, besser bekomme ich es nicht hin.
Grüße,
Felix
Anzeige