Thema: Eine Serie von bestehenden Arbeitsblättern auswechseln

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Arbeitsblatt