Eine Serie von bestehenden Arbeitsblättern auswechseln

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

085599    075399

Problem: Wie kann ich eine Serie von bestehenden Arbeitsblättern gegen neue austauschen, wobei von den alten jeweils nur die Werte, keine Formeln, übernommen werden sollen?

StandardModule: basMain

Sub WerteKopieren()
   Dim wks As Worksheet
   Dim iWks As Integer, iCounter As Integer
   Dim sWks As String
   Application.ScreenUpdating = False
   iWks = Worksheets.Count
   For iCounter = 2 To iWks
      Worksheets(2).Copy after:=Worksheets(Worksheets.Count)
      sWks = Worksheets(2).Name
      Worksheets(2).Name = "Fix&Foxi"
      ActiveSheet.Name = sWks
      Cells.Copy
      Cells.PasteSpecial xlPasteValues
      Application.CutCopyMode = False
      Range("A1").Select
      Application.DisplayAlerts = False
      Worksheets(2).Delete
      Application.DisplayAlerts = True
   Next iCounter
   Worksheets(2).Select
   Application.StatusBar = False
End Sub