Gruppe
VBE
Problem
Das aktive Blatt soll in eine neue Arbeitsmappe verschoben werden, wobei der Schaltfläche ein zu generierender Code zuzuweisen und deren Aufschrift zu ändern ist.
StandardModule: Modul1
Sub NewWkb()
Dim vbC As Object
Dim vbMdl As Object
Dim iRow As Integer
ActiveSheet.Move
With ActiveSheet.Buttons(1)
.OnAction = ActiveWorkbook.Name & "!Zurueck"
.Caption = "Zurück"
End With
Set vbC = ActiveWorkbook.VBProject.VBComponents.Add(1)
With vbC.codemodule
iRow = .CountOfLines + 2
.InsertLines iRow, "Sub Zurueck"
.InsertLines iRow + 1, " Worksheets.Add"
.InsertLines iRow + 2, " Worksheets(2).Move After:=Workbooks(""0119.xls"").worksheets(1)"
.InsertLines iRow + 3, " ActiveSheet.Buttons(1).Delete"
.InsertLines iRow + 4, "End Sub"
End With
End Sub