Microsoft Excel

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

    

Beiträge aus dem Excel-Forum zu den Themen VBE und Prozedur