Kompilieren-Fehler: Next ohne For || VBA

Ich habe ein problem mit meinem code, wird eine Fehlermeldung angezeigt, und ich don t verstehen, warum. Der Fehler ist:

"Kompilieren Fehler: Next ohne For"

Ich verstehe nicht, warum es so ist. Ich bin neu in Codierung so dass jede Hilfe und Kommentare sind mehr als willkommen.

Dies ist der code, der Neben dem Verweis als den einen ohne einen Kommentar. 

Sub CGT_Cost()
startrow = Worksheets("GUTS").Cells(10, 1) 'Here I put 1
endrow = Worksheets("GUTS").Cells(11, 1)   'Here I put 1000

For x = endrow To startrow Step -1

If Cells(x, "Q").Value = "Sale" Then

    If Cells(x, "D").Value = "1" Then

    For i = 1 To 1000

        If Cells(x - i, "R").Value <> "1" Then

    Next i
        Else
        Range("G" & x).FormulaR1C1 = "=R[-" & i & "]C/R[-" & i & "]C[-1]*RC[-1]"

        End If
    End If
    End If
Next x  

End Sub

Danke Euch allen im Voraus,
mit den besten GRÜßEN

Artur.

InformationsquelleAutor Artur Rutkowski | 2013-08-14

  1. 7

    Jeder Für - Anweisung mit einer Körper muss über eine entsprechende Nächsten, und jeder Wenn-Dann - Anweisung mit einer Körper muss über eine entsprechende Ende, Wenn.

    Beispiel:

    For i = 1 To 10 '<---- This is the header

    Hello(i) = "Blah"  '<---- This is the body

Next i  '<---- This is the closing statement

    Haben Sie einen Teil des Körpers Ihres Wenn - Anweisung in Ihrem Für ich Schleife, und ein Teil außerhalb. Es werden entweder ALLE innerhalb oder ALLE außerhalb. Denken durch die Logik und sehen, was es ist, Sie tun möchten.

    Danke. Ich werde sehen, was ich über es tun können.

    InformationsquelleAutor jlaverde

  2. 3

    überlappenden Schleifen-vielleicht

    Sub CGT_Cost()
   startrow = Worksheets("GUTS").Cells(10, 1)   'Here I put 1
   endrow = Worksheets("GUTS").Cells(11, 1)   'Here I put 1000

   For x = endrow To startrow Step -1

      If Cells(x, "Q").Value = "Sale" Then

         If Cells(x, "D").Value = "1" Then

            For i = 1 To 1000

               If Cells(x - i, "R").Value <> "1" Then
                  '
               Else
                  Range("G" & x).FormulaR1C1 = "=R[-" & i & "]C/R[-" & i & "]C[-1]*RC[-1]"
               End If

            Next i

         End If

      End If

   Next x

End Sub

    InformationsquelleAutor JosieP

Schreibe einen Kommentar