ich stehe gerade vor einem Problem :
Ich möchte aus einem Workbook Sheets(von Tabellenblatt 6 bis 13) in ein neues Workbook kopieren.Das funktioniert wunderbar. Hier der Code :
Sub Kopieren()
Dim Wiederholungen As Integer, Quelldatei As String, i As Integer, Neuer_Dateiname
Dim x As Integer
Wiederholungen = 6
x = 13
Application.ScreenUpdating = False
Quelldatei = ActiveWorkbook.name
Workbooks.Add
Do Until Wiederholungen = 13
Worksheets.Add
Wiederholungen = Wiederholungen + 1
Loop
Wiederholungen = 6
i = 1
For Wiederholungen = 6 To x
Sheets(i).name = Workbooks(Quelldatei).Sheets(Wiederholungen).name
Workbooks(Quelldatei).Sheets(Wiederholungen).Cells.Copy
Sheets(i).Range("A1").PasteSpecial Paste:=xlPasteValues
Sheets(i).Range("A1").PasteSpecial Paste:=xlPasteFormats
i = i + 1
Next
i = MsgBox("SpeichernAktion kann nicht rückgängig gemacht werden!" & Chr(13) & _
"" & Chr(13) & _
"Sicher? Dann OK, sonst ABBRECHEN" & Chr(13), 1 + vbExclamation, "Festwerte in neue Datei speichern")
If i = 2 Then Exit Sub
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:="", fileFilter:="Excel-Arbeitsmappe, *.xls")
If Neuer_Dateiname = False Then Exit Sub
ActiveWorkbook.SaveAs FileName:=Neuer_Dateiname
End Sub
Mein Problem:
1. Nur die sichtbaren Sheets soll der kopieren, was er nicht macht. Einige sheets sind versteckt
2.Das Kopieren des Layouts funktioniert zwar aber es kopiert Diagramme nicht mit. Gibts da einen Befehl der mir die Diagramme mitkopiert?
gruß