Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Eine Serie von bestehenden Arbeitsblättern auswechseln

Gruppe

Arbeitsblatt

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?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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