Fehler 13 "Typen unverträglich"

01    Dim DSNummern As Range
02    Set DSNummern = Range("DSNummer")
03    Dim I As Integer
04
05    Kleinster = Application.WorksheetFunction.min(Range("DSNummer"))
06
07    For Each Zelle In DSNummern
08        If Zelle.Value > Kleinster Then
09            If Zelle.Value > Zelle.Offset(-1, 0).Value + 1 Then
10                For I = 1 To Zelle.Value - Zelle.Offset(-1, 0).Value - 1
11                        ActiveCell.Value = Zelle.Offset(I * -1, 0).Value + 1
12                        ActiveCell.Offset(1, 0).Range("A1").Select
13                Next
14            End If
15        End If
16    Next