Vba. if then schleife stürzt nach etlichen durchgängen ab

'  
Dim Quellensenderzahl As Integer
Dim suchsenderanzahl As Integer
Dim endzeile As Integer
Dim quellsenderanzahl As Integer
Dim suchdatensatz As Integer
Dim quellzei As Integer
Dim zielzei As Integer
Dim testzeile As Integer
Dim nichtgef As Integer
Dim i As Integer
Dim suchealles1 As String
Dim suchealles2 As String
Dim sucheSender1 As String
Dim sucheSender2 As String
Dim lueschtest As String
Dim sucheFrequUndSID1 As String
Dim sucheFrequUndSID2 As String
Dim sucheFrequenz1 As String
Dim sucheFrequenz2 As String
Dim sucheSID1 As String
Dim sucheSID2 As String

' **********************************************************************************************************  

Quellensenderzahl = 3119  'Zeilennummer der letzten Zeile für Sender, die zu vergleichen sind. Senderanzahl um 1 kleiner  
suchsenderanzahl = 3779  'Zeilennummer der letzten Zeile in Vergleichstabelle 1 , Senderanzahl um 1 kleiner  

' **********************************************************************************************************  

endzeile = suchsenderanzahl      ' Zeilenanzahl variabel in Vergleichstabelle 1 mit 3779 Sendern  
quellsenderanzahl = Quellensenderzahl      ' Zeilenanzahl variabel in Quelltabelle 2 mit 3119 Sendern  
suchdatensatz = 0
quellzei = 2
zielzei = 2
testzeile = 2
nichtgef = 0

For quellzei = 2 To quellsenderanzahl
i = 2
'Einlesen Suchwert aus Quelltabelle 2  
suchdatensatz = suchdatensatz + 1

suchealles1 = ""  
suchealles2 = ""  

Sheets(i).Select    'Quelltabelle 2 mit 3119 Sendern  
suchealles1 = Range("A" & CStr(quellzei)) & Range("B" & CStr(quellzei)) & Range("C" & CStr(quellzei)) & Range("D" & CStr(quellzei)) _  
& Range("E" & CStr(quellzei)) & Range("F" & CStr(quellzei)) & Range("G" & CStr(quellzei)) & Range("H" & CStr(quellzei)) & Range("I" & CStr(quellzei)) _  
& Range("J" & CStr(quellzei)) & Range("K" & CStr(quellzei)) & Range("L" & CStr(quellzei)) & Range("M" & CStr(quellzei)) & Range("N" & CStr(quellzei))  
' Alles bei Quelle und Ziel Ident  
sucheSender1 = Range("A" & CStr(quellzei)) & Range("B" & CStr(quellzei))  
' Nur Sendername  

For zielzei = 2 To endzeile
i = 1     'Vergleichstabelle 1 mit 3779 Sendern  
Sheets(i).Select

suchealles2 = Range("E" & CStr(zielzei)) & Range("F" & CStr(zielzei)) & Range("G" & CStr(zielzei)) & Range("H" & CStr(zielzei)) _  
& Range("I" & CStr(zielzei)) & Range("J" & CStr(zielzei)) & Range("K" & CStr(zielzei)) & Range("L" & CStr(zielzei)) & Range("M" & CStr(zielzei)) _  
& Range("N" & CStr(zielzei)) & Range("O" & CStr(zielzei)) & Range("P" & CStr(zielzei)) & Range("Q" & CStr(zielzei)) & Range("R" & CStr(zielzei))  
' Alles bei Quelle und Ziel Ident  

sucheSender2 = Range("E" & CStr(zielzei)) & Range("F" & CStr(zielzei))  
' Nur Sendername  


******************************Klicke ich nach dem Absturz Debug an, wird diese Stelle markiert*********************************************
Range("Z1").Select  
ActiveCell.FormulaR1C1 = "Durchgang 1 von 3. Vergleiche " & CStr(suchdatensatz) & " von " & CStr(Quellensenderzahl - 1) & " (aktuell nur mehr " _  
& CStr(quellsenderanzahl - 1) & ") mit " & CStr(zielzei - 1) & " von " & CStr(suchsenderanzahl - 1) & " (aktuell nur mehr " & CStr(endzeile - 1) _  
& "). Ident sind " & CStr(testzeile - 2) & ". NICHT GEFUNDEN " & CStr(nichtgef) & ". " & sucheSender1 & " zu " & sucheSender2 & ".    "  

******************************Klicke ich nach dem Absturz Debug an, wird diese Stelle markiert*********************************************

    
    If suchealles1 = suchealles2 Then
       Range("Z" & CStr(zielzei)).Select     'Vergleichstabelle 1 mit 3779 Sendern  
       ActiveCell.FormulaR1C1 = "IDENT" & ". Zeile " & CStr(quellzei)   'Schreibe IDENT in Zelle Z## in Vergleichstabelle 1  
       Rows(CStr(zielzei) & ":" & CStr(zielzei)).Select                 ' Markiere Zeile mit gefundenem Sender in Vergleichstabelle 1  
       Selection.Copy
       Sheets("Ziel").Select   'Schreibe gefundene Zeile aus Vergleichstabelle 2 in die ZIELTABELLE 3 (das ERGEBNIS)  
       Rows(CStr(testzeile) & ":" & CStr(testzeile)).Select  
       ActiveSheet.Paste
       testzeile = testzeile + 1   'Erhöhe Zeilenwert um 1 für die Zieltabelle  
       i = 1
       Sheets(i).Select   'Lösche den gefundenen Sender in Vergleichstabelle 1 mit 3779 Sendern  
       Application.CutCopyMode = False
       Selection.Delete Shift:=xlUp
       endzeile = endzeile - 1    'Setze Zähler für Vergleichstabelle 1 um 1 niedriger, da jetzt 1 Datensatz weniger  
       zielzei = zielzei - 1      'Setze Zähler für Suchzeile in Vergleichstabelle 1 um 1 niedriger, da jetzt 1 Datensatz weniger  
       i = 2      'Markiere in Quelltabell 2 mit 3119 Sendern  
       Sheets(i).Select
       Range("V" & CStr(quellzei)).Select  
       ActiveCell.FormulaR1C1 = "IDENT"   'Schreibe IDENT in Zelle V## in Quelltabelle 2  
    End If
       If zielzei = endzeile Then
          i = 2      'Markiere in Quelltabell 2 mit 3119 Sendern  
          Sheets(i).Select
          lueschtest = Range("V" & CStr(quellzei))      'Wenn der letzte Vergleichsdatensatz in Vergleichstabelle 1 gelesen wurde  
          If lueschtest = "IDENT" Then                  ' Überprüfung in Quelltabelle 1, ob dieser Sender als gefunden (IDENT) markiert ist.  
             Rows(CStr(quellzei) & ":" & CStr(quellzei)).Select  
             Application.CutCopyMode = False            ' Wenn Sender in Quelltabelle 1 als IDENT markiert ist, Datensatz aus Quelltabelle löschen.  
             Selection.Delete Shift:=xlUp
             quellsenderanzahl = quellsenderanzahl - 1
             quellzei = quellzei - 1
          Else
             nichtgef = nichtgef + 1
          End If
       End If
       
       If zielzei > endzeile Then
          Exit For
       End If

   Next zielzei
   If quellzei > quellsenderanzahl Then
      Exit For
   End If
   If quellsenderanzahl < 1 Then
      Exit For
   End If

Next quellzei