Immer dies nachträglichen Erweiterungen zur ursprünglichen Frage.
Wie wäre es wenn du diesen "Filter" mal genauer beschreibst?
Hier eine Änderung für die Sache ab der 4. Tabelle (ungetestet)
with ThisWorkbook.Worksheets
For i = 1 to .count
if i >=4 then
Call .item(i).Copy
Set wksCopy = ActiveWorkbook.ActiveSheet
wkscopy.usedrange.cells.value = wkscopy.usedrange.cells.value 'formeln zu werten machen
Call wksCopy.SaveAs("C:\Temp\" & wks.Name, XlFileFormat.xlWorkbookDefault)
Call wksCopy.Parent.Close
end if
Next
end with
|