Registriert seit: 09.08.2017
Version(en): 2013
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
Registriert seit: 16.04.2014
Version(en): xl2016/365
Hola,
ich bin kein VBAler, aber gehört zu If nicht auch immer ein End If?
Gruß,
steve1da
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
Korrekt! Oder halt der Einzeiler If [Bedingung] Then [WennWahr] Else[NurWennBenötigt]
Ohne End If
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Folgende(r) 1 Nutzer sagt Danke an RPP63 für diesen Beitrag:1 Nutzer sagt Danke an RPP63 für diesen Beitrag 28
• Simlibimli
Registriert seit: 10.04.2014
Version(en): 2016 + 365
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
Folgende(r) 1 Nutzer sagt Danke an Rabe für diesen Beitrag:1 Nutzer sagt Danke an Rabe für diesen Beitrag 28
• Simlibimli
Registriert seit: 09.08.2017
Version(en): 2013
Nun ja, das war ein recht dummer Fehler.
Danke an alle.
Registriert seit: 10.04.2014
Version(en): 2016 + 365
Hi,
(14.12.2017, 07:12)Simlibimli schrieb: 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"