nur sichtbare worksheets kopieren
26.08.2013 19:05:54
s8
ich würde gerne folgenden Code so anpassen, dass nur die Inhalte der sichtbaren Worksheets in ein neues Workbook kopiert werden. Bei dem u.s. Code werden leider auch die Inhalte der hidden/veryhidden Worksheets kopiert :-( Ich würde das mit einem Array lösen, aber da ich eher Anfänger als Profi bin, scheitere ich daran. Vielleicht kann mir jemand helfen?! Wäre super.
Grüße, S8
Sub WbCopySave ()
Dim i As Integer
Pfad = "C:\test.xls"
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Pfad
For i = ThisWorkbook.Worksheets.Count To 1 Step -1
ActiveWorkbook.Worksheets.Add
ThisWorkbook.Worksheets(i).Cells.Copy
ActiveWorkbook.ActiveSheet.Cells.PasteSpecial Paste:xlPasteValues
ActiveWorkbook.ActiveSheet.Name = ThisWorkbook.Worksheets(i).Name
Next i
ActiveWorkbook.Close True
End
Sub