Office: Mehrere If Bedingungen mit mehreren Ausgabemöglichkeiten

Hallo liebe Forumsmitglieder,

habe eine kleine Unwissenheit:

ich möchte prüfen, welcher Wert in der Zelle ist und entsprechend einen neuen Wert eintragen.
Es gibt aber mehrere Kriterien und beim Durchlaufen der If-Schlaufe bekomme ich ein Problem mit Next i, da das Programm nicht auf Next i übergeht. Hier mein fehlgeschlagener Ansatz:

Sub multipleKrit ()

For i = 2 To 35 Step 1
If Cells(i, 6) >= 90 And Cells(i, 7) "" Then
Cells(i, 6) = 8
End If

If Cells(i, 6) >= 60 And Cells(i, 7) "" Then
Cells(i, 6) = 6
End If

If Cells(i, 6) >= 30 And Cells(i, 7) "" Then
Cells(i, 6) = 4
End If

If Cells(i, 6) < 30 And Cells(i, 7) "" Then
Cells(i, 6) = 2
End If

End Sub

Wie kann eingerichtet werden, dass das Marko eine Zelle überprüft anhand der Kriterien, welcher Wert in der Zelle steht, einen Eintrag macht und dann auf die nächste Zeile springt, bis es fertig ist?

Danke euch und Gruss,

Vrille

:)

 

Hi,

vor End Sub fehlt auch noch der Abschluss der For-Schleife Next i

Meinst du das so:

Code:

 

Hallo Karin,

vielen Dank.

Jetzt klappt es endlich.
Super Sache. Schliesse den Beitrag.

Liebe Grüsse,

Vrille