Office: Excel Datei über VBA öffnen und schließen ohne speichern

Hallo Leute,

ich habe mal wieder ein Problem und kann mir nicht so richtig Erklären wodran es liegt. Ich bin mir sicher, dass es für euch eine Kleinigkeit seien wird.

Hier mal mein Code

Code:

Private Sub CommandButton5_Click()


   Dim lngZeile As Long
   Dim lngZiel As Long
   Dim lngLetzteQuelle As Long
   Dim lngLetzteZiel As Long
   Dim wbk As Workbook
   
   
   Set wbk = Workbooks.Open("Users:Desktop:Disposition.xlsm")
   Workbooks("Labor.xlsm").Activate
   With Workbooks("Disposition.xlsm").Worksheets("Blatt1")
      lngLetzteQuelle = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
         .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
      For lngZeile = 2 To lngLetzteQuelle
         lngLetzteZiel = IIf(IsEmpty(Cells(Rows.Count, 1)), _
            Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
         If IsError(Application.Match(.Cells(lngZeile, 1), _
            Workbooks("Labor.xlsm").Worksheets("Blatt1").Columns(1), 0)) Then
            If IsError(Application.Match(.Cells(lngZeile, 1), _
               Worksheets("Blatt1").Columns(1), 1)) Then
               lngZiel = 2
            
            ElseIf Application.Match(.Cells(lngZeile, 1), _
               Workbooks("Disposition.xlsm").Worksheets("Blatt1").Columns(1), 1) = lngLetzteZiel Then
               lngZiel = lngLetzteZiel + 1
            Else
               lngZiel = Application.Match(.Cells(lngZeile, 1), _
                  Workbooks("Disposition.xlsm").Worksheets("Blatt1").Columns(1), 1) + 1
            End If
            Workbooks("Labor.xlsm").Worksheets("Blatt1").Rows(lngZiel).Insert
            Workbooks("Labor.xlsm").Worksheets("Blatt1").Cells(lngZiel, 1) = .Cells(lngZeile, 1) 'Lieferschein-Nr.
            Workbooks("Labor.xlsm").Worksheets("Blatt1").Cells(lngZiel, 2) = .Cells(lngZeile, 4) 'Datum
            Workbooks("Labor.xlsm").Worksheets("Blatt1").Cells(lngZiel, 4) = .Cells(lngZeile, 5) 'Menge
            Workbooks("Labor.xlsm").Worksheets("Blatt1").Cells(lngZiel, 5) = .Cells(lngZeile, 6) 'Qualität
         End If
      Next lngZeile
   End With
   
   
   [COLOR="#FF0000"]Workbooks(wbk).Close savechanges:=False[/COLOR]

   Set wbk = Nothing
   
   

UserForm1.Show





End Sub

Bei der roten Markierung bekomme ich die Fehlermeldung
Laufzeifehler 13 Typenkonflikt


Habt ihr eine Idee was ich falsch machen?

 

Habe ein Lösung gefunden! Ein Unload Me vor dem close Befehl hat gereicht.
Danke an alle