Hallo VBA Community, 

ich habe Folgenden Code bei dem mir für das Next Spalte der For Schleife eine Typenunverträglichkeit angezeigt wird.

Dim index As Long
    Dim letzte As Long
    Dim letzteSpalte As Long
    Dim strFull As String
    Dim arrSplitString() As String
    Dim singleDate As String
    Dim d As Date
    Dim adresse As String
    
    index = Worksheets("speicher").Cells(1, 6)
    Dim diff As Long
    letzteSpalte = 53
    
    
    With Worksheets("Daten")
        letzte = .Cells(Rows.Count, 4).End(xlUp).Row
        For spalte = 32 To letzteSpalte
            For zeile = 2 To letzte
                If .Cells(zeile, spalte) <> "" Then
                
                    adresse = Cells2Range(zeile, spalte)
                    msgBox adresse
                    strFull = Format(Range(adresse), "tt.mm.yyyy")
                    arrSplitString = Split(strFull, "- ")
                    If UBound(arrSplitString) < 1 Then
                        d = .Cells(zeile, spalte).Value
                        
                    Else
                        singleDate = arrSplitString(1)
                        d = CDate(singleDate)
                    End If
                    
                    diff = DateDiff("d", Now, d)
                    If diff < 31 Then
                        If diff > 0 Then
                            Worksheets("speicher").Cells(index, 1).Value = .Cells(zeile, 3).Value
                            Worksheets("speicher").Cells(index, 2).Value = .Cells(1, spalte).Value
                            Worksheets("speicher").Cells(index, 3).Value = .Cells(zeile, spalte).Value
                            index = index + 1
                        End If
                                
                    End If
                End If
            Next zeile
        Next spalte
    End With

Kann mir da jemand weiterhelfen, beziehungsweise einmal erklären wieso sich "spalte" da nicht weiter hochrechnet und hängen bleibt?

schon einmal vielen Dankm im vorraus