Next in For Schleife falsch angewendet

[Simlibimli]

Hallo an alle,

Ich habe folgende Formel geschrieben:

Sub Artikel()
For i = 2 To 100

    For j = 1 To 100

    If Sheets("Tabelle1").Cells(i, 1) = Sheets("Tabelle2").Cells(j, 2) Then
    Sheets("Tabelle1").Cells(i, 2) = Sheets("Tabelle2").Cells(j, 3)
    Exit For

    Else
    Next j

Next i
End Sub

Jedoch bekomme ich die Meldung für Next j: "Next ohne For"
Kann mir jemand erklären was der Fehler ist?

Danke bereits im Voraus

Gruss
Simli

[steve1da]

Hola,

ich bin kein VBAler, aber gehört zu If nicht auch immer ein End If?

Gruß,
steve1da

[RPP63]

Korrekt! Oder halt der Einzeiler If [Bedingung] Then [WennWahr] Else[NurWennBenötigt]
Ohne End If

[Rabe]

Hi,

jepp, so ist's richtig:

Code:

Option Explicit

Sub Artikel()
   Dim i As Long
   Dim j As Long
  
   For i = 2 To 100
      For j = 1 To 100
         If Sheets("Tabelle1").Cells(i, 1) = Sheets("Tabelle2").Cells(j, 2) Then
            Sheets("Tabelle1").Cells(i, 2) = Sheets("Tabelle2").Cells(j, 3)
            Exit For
         Else
         End If
      Next j
    Next i
End Sub

[Simlibimli]

Nun ja, das war ein recht dummer Fehler.
Danke an alle.

[Rabe]

Hi,

Nun ja, das war ein recht dummer Fehler.

das sehe ich nicht so streng, denn immerhin:
Fehlermeldung war: "Next Without for"

es sind aber 2x "For" und 2x "Next" enthalten.

Eigentlich müßte die Fehlermeldung lauten: "If Without End If"