Überlauf in Schleife

Sub asw_einsetzen()
'Daten aus Originaldatei in Auswertungsdatei übernehmen
Dim quelldaten As Byte
Dim aswdaten As Byte
'Dim suchspalte As String
Dim eintragungsspalte As Byte
Dim intRow As Integer
Dim WS1 As Worksheet, WS2 As Worksheet
Dim i As Integer
Set WS1 = Workbooks("NW_ZL_MLDG_2003.xls").Worksheets("Daten")
Set WS2 = Workbooks("NW_ZL_MLDG_2003.xls").Worksheets("asw_druck")
hzasw = Workbooks(ThisWorkbook.Name).Worksheets("allgemein").Range("J64").Value
hzaswII = Workbooks(ThisWorkbook.Name).Worksheets("allgemein").Range("J65").Value
hzaswIII = Workbooks(ThisWorkbook.Name).Worksheets("allgemein").Range("N65").Value
intRow = WS1.Cells(Rows.Count, 7).End(xlUp).Row
suchspalte = Workbooks(ThisWorkbook.Name).Worksheets("allgemein").Range("N63").Value
'schutz aufheben
WS2.Unprotect (PSWDTP)
aswdaten = 3
For quelldaten = 3 To intRow
'Abfrage für normale Begriffe
If WS1.Cells(quelldaten, suchspalte).Value = hzasw And WS1.Cells(quelldaten, suchspalte).Value <> "" Then
For eintragungsspalte = 1 To 36
WS2.Cells(aswdaten, eintragungsspalte).Value = WS1.Cells(quelldaten, eintragungsspalte).Value
Next eintragungsspalte
WS2.Cells(aswdaten, 4).Value = aswdaten - 2
aswdaten = aswdaten + 1
'Abfrage für ganze Bereiche
ElseIf WS1.Cells(quelldaten, suchspalte).Value >= hzaswII And WS1.Cells(quelldaten, suchspalte).Value <= hzaswIII And WS1.Cells(quelldaten, suchspalte).Value <> "" And hzaswIII <> "" Then
For eintragungsspalte = 1 To 36
WS2.Cells(aswdaten, eintragungsspalte).Value = WS1.Cells(quelldaten, eintragungsspalte).Value
Next eintragungsspalte
WS2.Cells(aswdaten, 4).Value = aswdaten - 2
aswdaten = aswdaten + 1
'Abfrage für Beträge
ElseIf WS1.Cells(quelldaten, suchspalte).Value > 0 And suchspalte >= 20 And suchspalte <> 33 Then
For eintragungsspalte = 1 To 36
WS2.Cells(aswdaten, eintragungsspalte).Value = WS1.Cells(quelldaten, eintragungsspalte).Value
Next eintragungsspalte
WS2.Cells(aswdaten, 4).Value = aswdaten - 2
aswdaten = aswdaten + 1
Else
End If
Next quelldaten
'Änderungen einschalten
Application.ScreenUpdating = True
'Auswertungsdaten nummerieren
nummerieren_asw
'schutz setzen
WS2.Protect Password:=PSWDTP, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
End Sub