VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Blatt verschieben und neuer Code für Schaltfläche

Gruppe

VBE

Bereich

Prozedur

Thema

Blatt verschieben und neuer Code für Schaltfläche

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