|
Hallo,
hoffe mir kann jemand bei folgendem problem helfen:
Dim Zelle As Range
For Each Zelle In Range(Cells(2, 16), Cells(Rows.Count, 16).End(xlUp))
If Zelle = 220 Then Cells(Zelle.Row, 24) = "Yes" Else
If Zelle = 5940 Then Cells(Zelle.Row, 24) = "Yes" Else
If Zelle = 5950 Then Cells(Zelle.Row, 24) = "Yes" Else
Cells(Zelle.Row, 24) = "No"
Next
Die If-Schleife soll für jede Zeile in Spalte 16 überprüfen, ob einer der drei Werte vorkommt.
Wenn ja, dann soll in Spalte 24 Yes geschrieben werden.
Die If-Schleife funktioniert dabei auch soweit, jedoch wird trotzdem jedes mal durch Else No in die Zelle geschrieben.
Vielen Dank im Voraus und einen schönen Dienstag.
|