Break formel via VBA

Hej

Du kan bruge select for det range som du vil behandle, f.eks. hvis du har data i kolonne A, B og C, og i række 1, 2 og 3.

Sheets("Ark1").Select
Range("A1:C3")
Selection.Copy
Sheets("Ark1").Select
Range("A1").Select
ActiveSheet.PasteSpecial

Det svarer til at du i arket laver en copy og derpå en indsæt speciel (værdier).

M.v.h. Bifangst

Hej Bifangst

Det fjerner ikke umiddelbart formlerne

Okay

Prøv så:

Sheets("Ark1").Select
Range("A1:C3")
Selection.Copy
Sheets("Ark1").Select
Range("A1").Select
ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Bemærk at sidste linie skrives ud i et

M.v.h. Bifangst

Sidespørgsmål før jeg kan se om det virker:

Jeg får en fejl, da jeg koden ikke står alene. Nede ved Range("A1:c3").select siger den application-defined or object-defined error

Kan du hjælpe med den?

Umiddelbart kan jeg kun se at fejlen kan bestå i at jeg, i min kodestump har glemt at skrive Select efter Range("A1:C3"), altså

Range("A1:C3").Select

i linie 2

Håber at den virker nu:-)

Public Sub FormelTilTal()
' marker cellen med formel
    Dim Data As Variant
    Data = Selection
    Selection = Data
End Sub

De virker begge, men da bifangst var hurtigst synes jeg han skal have pointene, men tak til begge!