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