Gruppe
Allgemein
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