Skapa kopia av mallarbetsblad

Här demonstreras ett enkelt förfaringssätt för att skapa en kopia av en mall och där alla textvärden och formler är intakta medan värdena tas bort vid kopieringen.

För att skapa ett resultatblad se Kopiera arbetsblad

Option Explicit Sub Lagg_till_Kopia_Mallarbetsblad() '© 2002 Alla rättigheter XL-Dennis Dim wsBlad As Worksheet Dim rnCell As Range Dim i As Integer Application.ScreenUpdating = False 'Skapa en kopia av det aktiva arbetsbladet i = Worksheets.Count ActiveSheet.Copy after:=Worksheets(i) i = i + 1 Set wsBlad = Worksheets(i) On Error Resume Next 'Ta bort alla numeriska värden i mallkopian wsBlad.Cells.SpecialCells(xlCellTypeConstants, 1).ClearContents On Error Goto 0   Application.ScreenUpdating = True End Sub