Rangeobjekt?

Dim sbereich as Range
Dim j asa Integer
j = ("Mappe1").Columns(1).Find("").Row
Set sbereich = Range(Cells(2, 39), Cells(j - 1, 39))

Mein Makro kann den Bereich nicht zuordnen? Dort steht nicht eibmal sbereich = nothing??

Danke Flo