Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Blatt verschieben und neuer Code für Schaltfläche
Gruppe
Prozedur
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.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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