möchte im Klassenmoduls eines Tabellenblattes über eine Prozedur Code erzeugen! funktioniert aber nicht richtig.
Ich starte diese Prozedur aus einer anderen!
Hier der Code:
Public Sub Code_erzeugen()
'On Error Resume Next
Dim wks As Worksheet, wkb As Workbook
Application.DisplayAlerts = False 'Fehlermeldungen werden abgestellt
Set wkb = ActiveWorkbook
Set wks = ActiveSheet
'Code wird eingefügt
With wkb.VBProject.vbcomponents(wks.CodeName).codeModule
.InsertLines 1, "Private Sub Worksheet_Change(ByVal Target As Range)"
.InsertLines 2, "Eingabe_pruefen"
.InsertLines 3, "End Sub"
End With
Application.DisplayAlerts = True 'Fehlermeldungen werden angestellt
End Sub
Gruß Ron