ich versuche derzeit, über die personl.xls ein Makro in das jeweils aktive Blatt schreiben zu lassen.
Bisher habe ich mittels Recherchen folgendes zustande gebracht:
Option Explicit
Sub Testmodul()
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet).CodeModule
.InsertLines 1, "Sub Formel_Eintragen()"
.InsertLines 2, "With ActiveSheet"
.InsertLines 3, "Range(""C3"").FormulaLocal = ""=Summe(A3;B3)"""
.InsertLines 4, "End With"
.InsertLines 5, "End Sub"
End With
End Sub
Läuft natürlich nicht, die With-Zeile wird markiert.Vielleicht kann mir jemand behilflich sein.
Danke und Servus, Walter