Code Teil Richtig Einsetzen
28.11.2007 15:15:31
Heinz
Ich möchte den Cod Teil zum löschen des Codes im Tab.Blatt einfügen.
Ersollte aber den Code nicht im Aktiven Sheets löschen.
Könnte mir dabei bitte jemand helfen.
Gruß Heinz
With ActiveWorkbook.VBProject
With .VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
End With
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub
Option Explicit
Sub cp_wbk()
Dim MyShape As Shape, strPfaduDatei As String
Dim Shape2 As Shape
Application.ScreenUpdating = False
'ActiveSheet.Unprotect
With ThisWorkbook
strPfaduDatei = .Path & "\" & .Sheets(1).Range("B3") & _
" " & Format(.Sheets(1).Range("A6"), "mmmm YYYY")
ActiveSheet.Cells(1, 1).Activate
.Sheets(1).Copy
End With
For Each MyShape In ActiveSheet.Shapes
If MyShape.AlternativeText "" Then MyShape.Delete
Next
ActiveWorkbook.SaveAs strPfaduDatei
ActiveWorkbook.Close
Range("O47:O49").Copy
Range("M47").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True
ActiveSheet.Cells(1, 1).Activate
ActiveSheet.Protect
End Sub