Shetts(2) & Sheets (3).Delete
16.11.2007 17:48:00
Heinz
Könnte man in diesen Code der mir ein neues Tab.Blatt in ein neues Workbook einfügt, nicht die Sheets 2 & 3 löschen ?
Also das nur der aktive Sheets in der Arbeitsmappe ist.
Danke Heinz
Option Explicit
Sub cp_wbk()
Dim wbk_neu As Workbook
Dim wbk_alt As Workbook
Dim MyFileName As String
Dim MyPfad As String
Dim MyShape As Shape
Set wbk_alt = ActiveWorkbook
Set wbk_neu = Workbooks.Add
wbk_alt.Activate
MyPfad = ThisWorkbook.Path & "\" 'anpassen
MyFileName = Range("B3") & " " & Format([A6], "mmmm YYYY")
wbk_alt.Sheets(1).Copy before:=wbk_neu.Sheets(1)
For Each MyShape In wbk_neu.Sheets(1).Shapes
If MyShape.AlternativeText "Neues Monat anlegen" Then MyShape.Delete
Next
wbk_neu.SaveAs MyPfad & MyFileName
wbk_neu.Close
'MsgBox "Sicherung siehe: " & MyPfad & MyFileName
End Sub