VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Eine Serie von bestehenden Arbeitsblättern auswechseln

Gruppe

Allgemein

Bereich

Arbeitsblatt

Thema

Eine Serie von bestehenden Arbeitsblättern auswechseln

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