Fehlermeldung, wenn kopiert werden soll

Hallo allerseits,
anbei das Makro, wenn Nummer vorhanden, läuft alles.
Wenn Nummer nicht vorhanden, wird das Makro abgebrochen,
siehe untere Zeile.
Fehler:
Laufzeitfehler 91
Objektvariable oder With Blockvariable nicht festgelegt

Dim wksQUELLE As Worksheet            'Quell-Worksheet
  Dim wksZIEL As Worksheet              'Ziel-Worksheet
  Dim wkbZIEL As Workbook, wkbQUELLE As Workbook
  Dim rngZIEL As Range
  Dim strSUCH As String
  
  Const cstr_wkbQUELLE As String = "Werkstatt.xlsm"
  Const cstr_wksQUELLE As String = "Daten"
 
  Set wkbQUELLE = ActiveWorkbook
  Set wksQUELLE = ActiveSheet
    
  On Error Resume Next
  Set wkbZIEL = Workbooks(cstr_wkbQUELLE)
  On Error GoTo 0
  If wkbZIEL Is Nothing Then
    Set wkbZIEL = Workbooks.Open("D:\" & cstr_wkbQUELLE)
  End If
  'Worksheet-Variable setzen
  Set wksZIEL = wkbZIEL.Worksheets(cstr_wksQUELLE)
 
    Dim lFile
    Dim lloRow As Long, ldtRgDate As Date, lstrRgNr As String, lboOK As Boolean, lloRNext As Long
    Dim wks, shs, pshDB
    Application.ScreenUpdating = False
             
        wkbZIEL.Activate
        wkbQUELLE.Activate
  
    Dim lngCt As Long
    If Not IsEmpty(Range("K11")) Then
        lngCt = WorksheetFunction.CountIf(wksZIEL.Range("A3:A" & Rows.Count), wksQUELLE.Range("K11").Value)
     ' MsgBox lngCt
     If lngCt = 0 Then      '1 vorhanden 0= Nummer fehlt
                MsgBox "Nummer fehlt"
    Else
     MsgBox "Nummer schon vorhanden"
       wkbZIEL.Close True
        Exit Sub   
    End If
   MsgBox "jetzt wird kopiert"
   End If   'von abfrage

  'übertragen
  wksQUELLE.Range("K11:K22").Copy
   
'bleibt hier stehen:
 rngZIEL.Offset(0, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True