[VBA/Excel] Uitkomst formule kopieren naar andere cel

[ZwiQ]

Hoe kan ik vanuit een macro de inhoud van een cel op werkblad1 kopieren naar
een cel op werkblad2 als die inhoud bestaat uit de uitkomst van een
formule. Als ik de inhoud kopieer met behulp van het volgende stukje code:

Range("A68:D68").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("resultaten").Select
Range("A6:D6").Select
ActiveSheet.Paste

verschijnt in de doelcellen de foutmelding "#VERW!" Dit komt doordat de
broncel een formule bevat:

ALS(J47="niet gemeten";"niet gemeten";ALS(J:J="voldoet";"voldoet";"voldoet
niet"))

Ik wil echter alleen het resultaat van de formule kopieren. In de doelcellen
moet dus "niet gemeten", "voldoet", of "voldoet niet" komen te staan.
Afhankelijk van het resultaat van de formule op het eerste blad. Maar de
cellen op het eerste blad worden daarna leeggemaakt terwijl de naar het
tweede blad gekopieerde gegevens bewaard moeten blijven (geen koppeling
dus!)

Mijn excuses voor de ongelooflijk omslachtige beschrijving van het probleem
:oP ik hoop dat nu ongeveer duidelijk is wat ik wil.

Groeten,
Hielke Prins
Pr...@Europe.com

[Roel Griffioen]

ZwiQ <Zw...@beer.com> wrote:

> Range("A68:D68").Select
> Application.CutCopyMode = False
> Selection.Copy
> Sheets("resultaten").Select
> Range("A6:D6").Select
> ActiveSheet.Paste
>
> verschijnt in de doelcellen de foutmelding "#VERW!" Dit komt doordat de
> broncel een formule bevat:

Verander de laatste regel in

Selection.PasteSpecial Paste:=xlValues

Dat helpt.

--
Groeten,
Roel Griffioen