Codeeintrag in Modul via VBA
Josef
Mit folgendem Code wird in der aktiven Arbeitsmappe im Klassenmodul von DieseArbeitsmappe untenstehender Code via VBa eingetragen.
Einen Schönheitsfehler hat diese Angelegenheit jedoch noch:
Beim Ausführen des Codes wird in den VBA Teil gewechselt und der Code wird eingetragen. Der Fehler dabei ist, dass nach dem Eintrag des Codes der VBA Teil geöffnet bleibt.Ich möchte jedoch erreichen, dass wieder in die Tabelle
zurückgesprungen wird. vielleicht wäre es sogar möglich,das der VBA Teil gar nicht aktiviert und der Code gleich so eingetragen wird?
Danke
Josef
Sub WB_Code_via_VBA_UF_Starten()
Const WS As String = "DieseArbeitsmappe"
Dim VBC As Object
Dim LineNr
With ActiveWorkbook.VBProject.VBComponents(WS).CodeModule
LineNr = .CreateEventProc("Open", "Workbook")
.InsertLines LineNr + 1, "Application.Run (""Muster.xls!SU_Starten"")"
'.InsertLines LineNr + 2, "If Target.Column = 7 And Target.Row > 2 Then"
'.InsertLines LineNr + 3, "If Target.Count = 1 Then"
End With
End Sub