Als leeg vul met nul

[Withaar]

Ik wil graag met een macro alle lege cellen (binnen en geslecteerde range) snel met een nul kunnen vullen.

Nu dacht ik met deze macro dat voor elkaar te krijgen.

Sub Leeg_naar_nul()
For Each c In ActiveCell.CurrentRegion.Cells
      If c.Value = "" Or c.Value = " " Then
      c.Value = "0"
      End If
Next c
End Sub

Nu komt in de eerste cel wel een 0 maar in de rest niet.
Sterker nog, soms krijgen cellen buiten het geselecteerde gebied een 0...

 

[Brandts]

Probeer dit eens:

Sub Leeg_naar_nul()
For Each c In Selection
      If c.Value = "" Or c.Value = " " Then
      c.Value = "0"
      End If
Next c
End Sub

 

[Withaar]

Perfect :thumb:

 

[Ginger]

...nog een methode maar dan zonder lus in de code... (voor de geïnteresseerden)

Sub VulLeegMetNul()

    Selection.SpecialCells(xlCellTypeBlanks).Value = 0
   
End Sub

Groet, Leo

 

[Wigi]

Leo

Pas wel op als er een formule een lege string geeft als resultaat, die zullen niet gevonden worden met die regel code. Voor de rest weet je dat dat ook 1 van mijn favoriete constructies is :thumb:

Wigi