Wieso stürzt mein xls bei dem Code ab
16.12.2005 17:18:01
Peter
hab gerade den Code für eine antwort zwei Beiträge weiter unten geschrieben, aber an makierter Stelle stürzt xls ab (sonst läufts stabil).
ZUGRIFF AUF VISUAL BASIC PROJEKT VERTRAUEN ist gesetzt.
Warum ? Der Code ist aus meiner Personl.xls auf der Basis eines Nepumuks Postings, kann also kein schlechter sein.
Sub code_einfügen()
Dim strWbkOld As String
Dim Wbk As Workbook
strWbkOld = ThisWorkbook.name
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("DieseArbeitsmappe").CodeModule
.InsertLines 1, "Option Explicit"
.InsertLines 2, ""
.InsertLines 3, "Private Sub Workbook_BeforeClose(Cancel As Boolean)" 'hier schmiert das ganze ab
.InsertLines 4, "ActiveWorkbook.Save"
.InsertLines 5, "End Sub"
End With
End Sub