Hallo,

warum funktioniert das folgende nicht, es gibt keinen Fehlercode:

    For Each rng In Range(rng1.Address, rng2.Address)
        rng.value = "test"
    Next

Das hier funktioniert und gibt jeweils die Range/Zelle aus.

    For Each rng In Range(rng1.Address, rng2.Address)
        MsgBox rng.address
    Next

Danke und viele Grüße,

Peter