VBA Code via VBA Code in neue Mappe
Josef
Mit dem nachfolgenden Code wird ein VBA Code im Klassenmodul der Tabelle 10 erzeugt.
Was müßte ich bitte ändern, wenn ich den Code in das Klassenmodul "diese Arbeitsmappe" eintragen lassen will?
Danke
Josef
Sub WB_Code_via_VBA_Kapitel()
Const WS As String = "Tabelle10"
'Dim WB As Workbook
Dim VBC As Object
Dim LineNr
'Set WB = Workbooks.Add
With ActiveWorkbook.VBProject.VBComponents(WS).CodeModule
LineNr = .CreateEventProc("Change", "Worksheet")
.InsertLines LineNr + 1, "Dim r As Long, wsB As Worksheet, wsC As Worksheet"
.InsertLines LineNr + 2, "If Target.Column = 7 And Target.Row > 2 Then"