Laufzeitfehler '13 Typen unverträglich
27.06.2017 18:13:56
Matthias
ich würde gerne mit einem Userform in die ausgewählte Zeile Einträge machen, erhalte aber den Laufzeitfehler. Code zum Speichern der Einträge ist nachfolgend.
Kann mir da bitte jemand weiterhelfen?
Code:
Private Sub Save_Click()
Dim last As Long
With Worksheets("Data")
last = ActiveCell.EntireRow.Value
.Cells(last, 1).Value = UserForm1.Datum.Value
.Cells(last, 2).Value = UserForm1.Teilenummer.Value
.Cells(last, 3).Value = UserForm1.Fall.Value
.Cells(last, 4).Value = UserForm1.Deadline.Value
.Cells(last, 5).Value = UserForm1.Teilename.Value
.Cells(last, 6).Value = UserForm1.Sondervereinbarung.Value
.Cells(last, 7).Value = UserForm1.Risk_level_material.Value
.Cells(last, 8).Value = UserForm1.SOP.Value
.Cells(last, 9).Value = UserForm1.Risk_level_current_supplier.Value
.Cells(last, 10).Value = UserForm1.New_supplier.Value
.Cells(last, 11).Value = UserForm1.Risk_level_new_supplier.Value
.Cells(last, 12).Value = UserForm1.Current_quantity.Value
.Cells(last, 13).Value = UserForm1.Expected_quantity.Value
.Cells(last, 14).Value = UserForm1.Expected_change.Value
.Cells(last, 15).Value = UserForm1.Expected_change_total.Value
.Cells(last, 16).Value = UserForm1.Calculated_change.Value
.Cells(last, 17).Value = UserForm1.Expected_prevetion.Value
.Cells(last, 18).Value = UserForm1.RD.Value
.Cells(last, 19).Value = UserForm1.RD_optional.Value
.Cells(last, 20).Value = UserForm1.Generic_test.Value
.Cells(last, 21).Value = UserForm1.QD.Value
.Cells(last, 22).Value = UserForm1.QD_optional.Value
.Cells(last, 23).Value = UserForm1.Name_applicant
.Cells(last, 24).Value = UserForm1.Comments.Value
.Cells(last, 23).Value = UserForm1.Name_applicant
.Cells(last, 24).Value = UserForm1.Comments.Value
End With
Unload Me
End Sub
Anzeige