Formules omzetten in tekstwaarde

[Robert Smidt]

Beste Helpmij'ers,

Ik heb onderstaande vba d.m.v. de opnametoets gegenereerd en moet zeggen dat het eigenlijk prima werkt, echter denk ik dat het veel korter kan. Mijn wens is dat er een selectie gedaan wordt en dat alle formules die in de diverse cellen staan omgezet worden naar waarden.

Onderstaande heb ik als volgt gedaan: een selectie maken --> kopiëren --> en kiezen voor plakken met als keuze "waarde". Nu zijn alle formules verdwenen en de waarde is alleen zichtbaar.

    Range("A4:AB500").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("B13").Select

Alvast bedankt

Robert

 

[edmoor]

Zo bijvoorbeeld:

With Range("A4:AB500")
    .Value = .Value
End With

 

[Robert Smidt]

Top, dit is precies wat ik bedoel, heel erg hartelijk bedankt..