Thema Datum  Von Nutzer Rating
Antwort
Rot For Schleife Typen unverträglich
04.01.2022 13:39:20 Nick
NotSolved
04.01.2022 14:37:50 Gast93106
NotSolved
04.01.2022 14:56:22 Gast98512
NotSolved
04.01.2022 15:12:00 Gast98547
Solved

Ansicht des Beitrags:
Von:
Nick
Datum:
04.01.2022 13:39:20
Views:
99
Rating: Antwort:
  Ja
Thema:
For Schleife Typen unverträglich

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot For Schleife Typen unverträglich
04.01.2022 13:39:20 Nick
NotSolved
04.01.2022 14:37:50 Gast93106
NotSolved
04.01.2022 14:56:22 Gast98512
NotSolved
04.01.2022 15:12:00 Gast98547
Solved