Type mismatch
Felix
ganz kurze Frage:
Die fett markierte Zeile in meinem code spuckt Fehler type mismatch aus und ich weiß nicht warum.
Kann jemand helfen?
danke!
Felix
Private Sub CommandButton1_Click()
Dim z As Integer
z = Sheets("overview").Range("A65536").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
Sheets("template").Copy Before:=Sheets("template")
Sheets("overview").Cells(z, 1).Copy Destination:=Sheets("template (2)").Cells("b1").Value _
Sheets("template (2)").Name = TextBox8.Value
End Sub