Laufzeitfehler "13"

Private Sub CommandButton4_Click()
Dim wks1 As Worksheet, wksMonat As Worksheet, wksVormonat As Worksheet
Dim lngZeile1 As Long, lngZeile2 As Long, lngZeile1L As Long, Zelle As Range
Dim varSuchen
Set wks1 = Worksheets(1)
Set wksMonat = Worksheets("Monat")
Set wksVormonat = Worksheets("Vormonat")
lngZeile1 = 17 'Erste Zeile für Eintrag in Tabelle1
'vorhandene IP-Einträge in Blatt 1 löschen
With wks1
lngZeile1L = .Cells(.Rows.Count, 1).End(xlUp).Row
If lngZeile1L >= lngZeile1 Then
.Range(.Cells(lngZeile1, 1), .Cells(lngZeile1L, 4)).ClearContents
End If
End With
'IP-Einträge aus Blatt "Monat" (Spalte 2) in Blatt Vormonat (Spalte 3) suchen und _
falls vorhanden in Blatt 1 eintragen
With wksMonat
lngZeile1L = lngZeile1
For lngZeile2 = 1 To .Cells(.Rows.Count, 2).End(xlUp).Row
If Not IsEmpty(.Cells(lngZeile2, 2)) Then
varSuchen = .Cells(lngZeile2, 2).Value
Set Zelle = wksVormonat.Columns(2).Find(what:=varSuchen, LookIn:=xlValues, _
lookat:=xlWhole)
If Not Zelle Is Nothing Then
wks1.Cells(lngZeile1L, 1).Value = varSuchen 'IP-Adresse
wks1.Cells(lngZeile1L, 2).Value = Zelle.Offset(0, 5).Value 'Vormonat
wks1.Cells(lngZeile1L, 3).Value = .Cells(lngZeile2, 2).Offset(0, 5).Value 'Monat
          wks1.Cells(lngZeile1L, 4).Value = .Cells(lngZeile2, 2).Offset(0, 5).Value _
- Zelle.Offset(0, 5).Value 'Differenz
lngZeile1L = lngZeile1L + 1
End If
End If
Next
End With
End Sub

wenn ich das programm ausführen will dann sagt mir der debugger bei der makierten stelle
Fehler
Laufzeitfehler "13"
Typen unverträglich
Ich habe keine Ahnung wo mein fehler ist über hilfe würde ich mich sehr freuen.
Liebe Grüße
Lolie