Kopiere resultatet af formel

Øhhh tryk copy på cellerne, gå til det nye ark og tryk paste-spacial og vælg value... Hvis jeg forstår spørgsmålet :)

Excel har en Paste Special, hvor man kan vælge values.

Er det nok?

Stå i modercellen, hvis resultat skal kopieres
Ctrl+C
Stå i den celle, hvor resultatet af modercellen skal indsættes
tast Alt+R+C+Æ  (for at indsætte værdi/resultat)
that's it      =|:-}

Ja - eller du kan højreklikke når du sætter ind og vælge specielt og værdier!

4 ens svar!
Normalt er det god etik ikke at gentage andres svar.
Hvis man følger trang til at gentage et rigtigt svar, så gør det da i det mindste som en kommentar.

Gas, du bør give Frewald alle pointene ........

Her er en makro jeg sad og digtede en dag jeg havde god tid.
Den laver en død kopi af det aktive ark, samt døde kopier af de grafer der måtte være derpå. Der er også muligt at rydde skjulte kolonner/rækker.
Den er ofte handy, når man skal sende et ark til ardre.

Sub CreateDeadSheet()
  Dim l As Long, t As Long
  Dim c As ChartObject
  Dim ans As String, y
  Dim cur As Range
  Dim r As Range, k As Range
 
  ans = MsgBox("Skal skjulte kolonner/rækker ryddes ?", vbYesNo, "Fjerne skjulte rækker/kolonner")
 
  Application.ScreenUpdating = False
  'opret-kopier det aktive ark til ny projektmappe
  ActiveSheet.Copy
  'lav døde celler
  Cells.Copy
 
  Cells.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
       
  'lav døde diagrammer
  If ActiveSheet.ChartObjects.Count > 0 Then
        For Each c In ActiveSheet.ChartObjects
          With ActiveSheet.Shapes(c.Name)
            t = .Top
            l = .Left
          End With
          c.CopyPicture Appearance:=xlScreen, Format:=xlPicture
          Set y = ActiveSheet.Pictures.Paste
          With y
            .Top = t
            .Left = l
          End With
          c.Delete
        Next
  End If
  'hvis skjulte kolonner skal ryddes
  If ans = vbYes Then
        Set cur = ActiveSheet.UsedRange
        For Each r In cur.Rows
            If r.Hidden = True Then r.EntireRow.Clear
        Next
        For Each k In cur.Columns
            If k.Hidden = True Then k.EntireColumn.Clear
        Next
  End If
 
  Application.CutCopyMode = False
  Application.ScreenUpdating = True

End Sub