|
Hallo
schau mal in den Thread davor, da habe ich die Frage bereits beantwortet. Ich würde es so machen, zuerst auf "No" seten und dann in "Ja" aendern Oder den ganzen Bereich vorher auf "No" setzen und gezielt in "Ja" umwandeln. Beides sollte einwandfrei funktionieren.
Dim Zelle As Range
For Each Zelle In Range(Cells(2, 16), Cells(Rows.Count, 16).End(xlUp))
Cells(Zelle.Row, 24) = "No"
If Zelle = 220 Or Zelle = 5940 Or Zelle = 5950 Then _
Cells(Zelle.Row, 24) = "Yes"
Next
Dim Zelle As Range
Range(Cells(2, 24), Cells(Rows.Count, 24).End(xlUp)) = "No"
For Each Zelle In Range(Cells(2, 16), Cells(Rows.Count, 16).End(xlUp))
If Zelle = 220 Or Zelle = 5940 Or Zelle = 5950 Then _
Cells(Zelle.Row, 24) = "Yes"
Next
mfg Nobody
|