First, i don't see where you set bereich.

If you use

Dim bereich As Range
Set bereich = ActiveCell

then you can use

bereich.Value = dteDatum


If bereich is not on Sheet "Protect", then you can use

Worksheets("Protect").Range(bereich.Address).Value = dteDatum

since a range object is a child object of a worksheet, and can't belong
to two different worksheets.


In article .com,
"bigburt" wrote:

Hello programmers !

Here is my problem :

I wouldlike to put some value into a sheet. the destination cells
depends on the selection. The selection is always type of Range. But i
have to use a conversion to write it down .

Dim bereich as range

AZelle = CStr(ActiveCell.Address)
.
.
.
Worksheets("Protect").Range(AZelle).Value = dteDatum

I dont´t like this . Why can´t i use

Worksheets("Protect").bereich.Value = dteDatum