in welchem Zusammenhang und wo diese Prozedur gestartet wird, ansonsten so :





Option Explicit



Sub test()



Dim ws As Worksheet



On Error Resume Next

Set ws = ActiveWorkbook.Worksheets.Add



'ws.CodeName = "c_" & dateiname

ws.Name = "KarlBloed2"

If Not Workbooks(ws.Parent.Name).Saved Then _

Workbooks(ws.Parent.Name).Save



With Workbooks(ws.Parent.Name).VBProject.VBComponents(ws.CodeName).CodeModule

.InsertLines 2, "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)"

.InsertLines 3, "eingabemaske.Show"

.InsertLines 4, "End Sub"

End With





End Sub

Knofi So wie wir heute arbeiten, werden morgen die Beamten leben ...

geschrieben von Knofi , 17.05.2006, 13:51 Uhr , 18 mal gelesen