Laufzeitfehler 1004- Import/checkbox
15.08.2019 09:55:49
Georg
Der Debugger zeigt mir immer das fett markierte als Fehler an.
Private Sub cmd3_Click()
'Modul2.Copy_method
End Sub
Private Sub cmd1_Click()
'Eingabefenster schließen'
Unload UF1
End Sub
Private Sub cmd2_Click()
'Eingabefenster übernehmen und Eingaben in die Datenbank speichern'
Dim last As Integer
With UserFormCheck
If Check1.Value = True Then Workbooks("Liefertreue_CPM2019.xlsx").Worksheets("Juni 2019").Range( _
"C12").Copy
Workbooks("DB_Testlauf_boss_v1.xlsm").Worksheets("tbl_boss").Range("U30").PasteSpecial _
xlPasteValues
Application.CutCopyMode = False
If Check1.Value = True Then Workbooks("Liefertreue_CPM2019.xlsx").Worksheets("Juni 2019").Range( _
"C13").Copy
Workbooks("DB_Testlauf_boss_v1.xlsm").Worksheets("tbl_boss").Range("U31").PasteSpecial _
xlPasteValues
Application.CutCopyMode = False
If Check2.Value = True Then Workbooks("Liefertreue_CPM2019.xlsx").Worksheets("Juni 2019").Range( _
"E12").Copy
Workbooks("DB_Testlauf_boss_v1.xlsm").Worksheets("tbl_boss").Range("V30").PasteSpecial _
xlPasteValues
Application.CutCopyMode = False
If Check2.Value = True Then Workbooks("Liefertreue_CPM2019.xlsx").Worksheets("Juni 2019").Range( _
"E13").Copy
Workbooks("DB_Testlauf_boss_v1.xlsm").Worksheets("tbl_boss").Range("V31").PasteSpecial _
xlPasteValues
Application.CutCopyMode = False
End With
End Sub
Private Sub UserForm_Initialize()
Check1.Value = False
Check2.Value = False
End Sub