title: Change value for a range of cells
body: <p>The code should check if the cells in column E have a value of &quot;J&quot;.</p>
  <p>If so, paste the value &quot;positiv&quot; into the cell of column N of each respective line.</p>
  <p>I tried several methods including range, cells and so on but I always get a runtime error.</p>
  <pre class="lang-vb prettyprint-override"><code>With wsDURATION
      
      Range(&quot;A1&quot;).Select
      
      For x = 1 To wsDURLrow Step 1
          If Cells.Offset(x, 4).Value = &quot;J&quot; Then
              Cells.Offset(x, 13).Value = &quot;positiv&quot;
          End If
      Next x
      
  End With
  </code></pre>