Cant combine cells to single string and write to cell

[PanzerRanger]

Using Excel 2013

If Im runing the code below in a for loop then comb works fine.

For Each c In Range("B2:B10") 'ersätt range
nr = Right(c, 3)
If nr = 980 Then
unr = c.Offset(0, -1)
se = c.Offset(0, 0)
comb = unr & " Sektion" & " " & se
Range("c4") = comb
End If
Next



but if comb looks like this
comb = unr & " Sektion " & se or comb = unr &" " & "Sektion" & " " & se

it generates a Type error 1004, but I need the spaces, any help because Im stuck out here

Many thanks

 

[Fluff]

This works for me

For Each c In Range("B2:B10") 'ersätt range
nr = Right(c, 3)
If nr = 980 Then
unr = c.Offset(0, -1)
se = c.Offset(0, 0)
comb = unr & " Sektion " & se
Range("c4") = comb
End If
Next

What are the values of unr & se when it fails?

 

[PanzerRanger]

Sheet looks like this

Col A	Col B
=H9K119	1000
=B4T119	1980
=B4B120	1981
=B4B121	1982
=B4B122	1983
=B4B123	1990

<colgroup><col><col></colgroup><tbody>
</tbody>

 

[PanzerRanger]

Hoovering over:
unr = "=H9B4T119"
se = 1980
com = "=H9B4T119 Sektion 1980"

 

[PanzerRanger]

Apparently I cant use 2 spaces

 

[Fluff]

If you actually have an = sign in the col A values try

comb = "'" & unr & " Sektion " & se

 

[Fluff]

Apparently I cant use 2 spaces

It's not the spaces its the = sign, xl thinks you'r trying to input a formula

 

[PanzerRanger]

I noticed Thanks! It also worked if I change the cell data type. I guess its easy to miss those little things

Cheers

 

[Fluff]

Glad to help & thanks for the feedback