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

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

--
Regards,
Tom Ogilvy

"Andreas Aust" wrote in message
...
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

Thank you Tom!

It does work!!

Andi

Tom Ogilvy schrieb:

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

--
Regards,
Tom Ogilvy

"Andreas Aust" wrote in message
...
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