- #1
F
finisterra
Guest
Hi,
Ich will per Macro ein Tabellenblatt erstellen (->funktioniert) und auf diesem soll ein Button erstellt werden, ich habe es wie folgt probiert aber da kommt ein Automatisierungsfehler. Kann mir jemand helfen?
'Button einfügen
ActiveSheet.OLEObjects.Add(ClassType:=Forms.CommandButton.1_
, Link:=False, DisplayAsIcon:=False, Left:=330, Top:=10, Width:=100_
, Height:=20).Select
With Application.VBE.ActiveVBProject.VBComponents(Tabelle & j +_ 1).CodeModule
.InsertLines 7, Private Sub CommandButton1_Click()
.InsertLines 8, Sheets(1).Select
.InsertLines 9, End Sub
End With
Ich will per Macro ein Tabellenblatt erstellen (->funktioniert) und auf diesem soll ein Button erstellt werden, ich habe es wie folgt probiert aber da kommt ein Automatisierungsfehler. Kann mir jemand helfen?
'Button einfügen
ActiveSheet.OLEObjects.Add(ClassType:=Forms.CommandButton.1_
, Link:=False, DisplayAsIcon:=False, Left:=330, Top:=10, Width:=100_
, Height:=20).Select
With Application.VBE.ActiveVBProject.VBComponents(Tabelle & j +_ 1).CodeModule
.InsertLines 7, Private Sub CommandButton1_Click()
.InsertLines 8, Sheets(1).Select
.InsertLines 9, End Sub
End With