Ik heb een werkblad met meerdere tabbladen. Na gebruik wil ik telkens in kolom B de cellen leegmaken.
Het betreft een aantal aaneengesloten rijen met samengevoegde cellen die altijd een waarde hebben.
Onderstaande VBA werkt met niet-samengevoegde cellen.
Waarschijnlijk worden samengevoegde cellen gezien als en reeks cellen, waarvan er slechts 1 een is gevuld.
Hierdoor wordt het niet meer gezien als 1 area.
Hoe los ik dit op?
Het betreft een aantal aaneengesloten rijen met samengevoegde cellen die altijd een waarde hebben.
Onderstaande VBA werkt met niet-samengevoegde cellen.
Public Sub tijd_leeg()
For j = 2 To 12
Sheets(j).Columns(2).SpecialCells(2).Areas(1).ClearContents
Next
End Sub
Waarschijnlijk worden samengevoegde cellen gezien als en reeks cellen, waarvan er slechts 1 een is gevuld.
Hierdoor wordt het niet meer gezien als 1 area.
Hoe los ik dit op?