cell-fill-makro

[Andreas Aust]

Hi together,

I need a macro.

I have a column and in this columne there are some empty cells.
And in these cells I want fill with an expression like "this is an empty
cell".

Do you have an idea how I can solve this problem?

Thank you in advance!

Regards Andi

 

[Tom Ogilvy]

Dim rng as Range
On error resume Next
set rng = columns(3).SpecialCells(xlblanks)
On Error goto 0
if not rng is nothing then
rng.Value = "this is an empty cell"
End if

 

[Andreas Aust]

Thank you Tom!

It does work!!

Andi

Dim rng as Range
On error resume Next
set rng = columns(3).SpecialCells(xlblanks)
On Error goto 0
if not rng is nothing then
rng.Value = "this is an empty cell"
End if