VBA Code hört bei Zeile 49 auf

Sub sbAuslesen()
Dim lloZeile As Long, larstrSplit1() As String, larstrSplit2() As String, liTitel As _
Integer, liName As Integer
For lloZeile = 2 To Cells(Rows.Count, 7).End(xlUp).Row
larstrSplit1 = Split(Range("G" & lloZeile).Value, ".")
larstrSplit2 = Split(Trim(larstrSplit1(UBound(larstrSplit1))), " ")
For liName = 0 To UBound(larstrSplit2) - 1
Range("I" & lloZeile).Value = Range("I" & lloZeile).Value & larstrSplit2( _
liName) & " "
Next
Range("J" & lloZeile).Value = larstrSplit2(UBound(larstrSplit2))
For liTitel = 0 To UBound(larstrSplit1) - 1
Range("H" & lloZeile).Value = Range("H" & lloZeile).Value & larstrSplit1( _
liTitel) & "."
Next
Next
End Sub