for Schleife wird nicht erkannt

Bild

Betrifft: for Schleife wird nicht erkannt
von: Eva
Geschrieben am: 02.03.2005 15:54:24
Hallo,
habe bei folgendem Code das Problem, dass beim Abspielen des Codes der Fehler "Next ohne For" auftaucht. Was habe ich falsch gemacht?


Sub MitarbeiterListeAnpassen()
Dim i As Integer
For i = 3 To 5400
    If Cells(i, 5).Value = "67407" Or "67410" Then
    If Cells(i, 6).Value = "DD OP" Or "DD VA" Then Call ZeileLöschen(i)
Next i
End Sub

Mit Dank+Gruß
Eva
Bild

Betrifft: Da fehlt ein "End If" vor "Next i" o.w.T.
von: Reinhard
Geschrieben am: 02.03.2005 15:56:14

Bild

Betrifft: oder 2 "end if"?
von: c0bRa
Geschrieben am: 02.03.2005 16:12:26
sind ja 2 if anweisungen in der for schleife...
oder interpretiert VBA einen if befehl so wie auch C/C++, dass wenn er in der selben zeile den befehl erhält (bzw ohne {}) dass er automatisch dann den einen befehl ausführt und sich die {} bzw das end if dahinterdenkt?

Sub MitarbeiterListeAnpassen()
    Dim i As Integer
    For i = 3 To 5400
        If Cells(i, 5).Value = "67407" Or "67410" Then
            If Cells(i, 6).Value = "DD OP" Or "DD VA" Then 
                Call ZeileLöschen(i)
            End If
        End If
    Next i
End Sub

das wäre mein vorschlag. *murmelt was von vernünftigem einrücken von schleifen*
c0bRa
Bild

Betrifft: Ja, ein Befehl hinter Then braucht kein End If owT
von: Reinhard
Geschrieben am: 02.03.2005 16:21:13

Bild

Betrifft: wieder was gelernt ;)
von: c0bRa (oT)
Geschrieben am: 02.03.2005 16:32:03

Bild

Betrifft: AW: for Schleife wird nicht erkannt
von: UweD
Geschrieben am: 02.03.2005 15:57:54
Hallo
so klapp es:

Sub MitarbeiterListeAnpassen()
Dim i As Integer
For i = 3 To 5400
    If Cells(i, 5).Value = "67407" Or Cells(i, 5).Value = "67410" Then
    If Cells(i, 6).Value = "DD OP" Or Cells(i, 6).Value = "DD VA" Then Call ZeileLöschen(i)
Next i
End Sub

Gruß UweD
Bild

Betrifft: AW: for Schleife wird nicht erkannt
von: EtoPHG
Geschrieben am: 02.03.2005 16:08:45
Hallo EVA,
Beide haben recht, aber doch nicht vollständig.... :-)

Sub MitarbeiterListeAnpassen()
Dim i As Integer
For i = 3 To 5400
    If Cells(i, 5).Value = "67407" Or Cells(i, 5).Value = "67410" Then
        If Cells(i, 6).Value = "DD OP" Or Cells(i, 6).Value = "DD VA" Then Call ZeileLöschen(i)
    End If
Next i
End Sub

Gruss Hansueli
Bild

Betrifft: Danke sehr. oT
von: Eva
Geschrieben am: 02.03.2005 16:11:52
bb
 Bild

Beiträge aus den Excel-Beispielen zum Thema "for Schleife wird nicht erkannt"