Uitkomst formule omzetten naar vaste waarde

[Gurtie]

Beste helpers,

mijn probleem is het volgende:

Ik roep een macro aan, die een aantal cellen vult met een formule die gegevens kopieert uit een ander bereik .
Nu is het de bedoeling dat wanneer deze macro is aangeroepen, de formules worden omgezet in hun uitkomst.
Dus bijvoorbeeld wanneer B3 de waarde '12' heeft en A3 verwijst naar B3, dan IS de formule
'=B3', maar deze moet WORDEN omgezet in '=12'.

Is hier een oplossing voor?
Het bestand aanhangen is niet handig, aangezien het nogal groot is en tevens lijkt de vraag me duidelijk.
De reden dat ik dit wil, is dat de macro met een functie werkt die elke keer een andere waarde oplevert, zodat de uitkomst van de formule verandert zonder dat dit de bedoeling is.
Deze macro wordt namelijk gebruikt voor alle dagen van de week.

vriendelijke groet

 

[Wigi]

With Range("bereik")
    .Copy
    .PasteSpecial xlValues
End With

Wigi

 

[Gurtie]

Wigi,

als ik het bereik van 1 cel neem, dan werkt de formule..

With Range("H7")
    .Copy
    .PasteSpecial xlValues
End With

Wanneer ik een groter bereik neem, krijg ik een foutmelding.

With Range("H7:H220")
    .Copy
    .PasteSpecial xlValues
End With

Runtime-error 1004
The information cannot be pasted because the Copy area and the paste area are not the same size and shape.

Alle cellen binnen het bereik zijn eenzelfde cel als H7 met dezelfde formule..

 

[Wigi]

Heb je cellen samengevoegd?

 

[Gurtie]

Nee daarom juist....het zijn allemaal identieke cellen onder elkaar...en je kan ook niet 1 cel vullen en de rest met autofill doen in dit geval..

Volgens mij heb ik het gevonden..ik denk dat de filter het probleem is!

 

[richard1970]

Yep, je mag geen filter gebruiken bij deze minimacro van Wim.
Richard

 

[Gurtie]

Mooi, dan bouw ik nog even in dat de filter tijdelijk wordt uitgezet.
Bedankt Wigi en Richard!