HERBERS Excel-Forum - die Beispiele

Thema: Blatt verschieben und neuer Code für Schaltfläche

Home

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.

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

Ereignisprozedur suche Taschenrechner in VBE
Ereignisprozedur f. Multipage-Reiter Prozedur in neues Blatt/Tabelle einfügen
Makros zulassen mit VBA Prozedur Beschriftungstext einer Schaltfläche an Prozedur
Text aus Zelle als Bedingung in Prozedur Zeitgesteuerte Prozedur funktioniert nicht...
Prozedur zu groß Fehler bei Abhandlung der Prozedur
Eine große Prozedur in zwei teilen aber wie? VBA - Prozedur
Prozedur verkürzen oder teilen? VBA bringt Prozedur-Fehler
VBE Optionen setzen Name der laufenden Prozedur
Prozeduren vor dem Speichern aus Tabelle löschen Prozedurnamen auslesen
Prozedurname aus Variable Erweiterung der VBE
Prozedur fuer mehrere Arbeitsblaetter wiederholen Simple Prozedur - Wo ist der Fehler?
vbeplus Variablen in anderer Prozedur aufrufen
Prozedur bei Worksheet_Activate tut nicht Worksheet_Activate() Prozedur
Teil einer rekursiven Prozedur auslagern Ereignisprozeduren automatisiert VBE
Automatisierungsfehler Codename VBE Verwendung Addin vbeplusde
lange Bearbeitungszeit einer Prozedur Prozedur macht was sie will...
Fehler beim Kompilieren - Außerhalb Prozedur.... prozedur aufrufen
Frage Archivbeitrag - Schreibschutz Benutzerrechte Prozedur in prozedur
Prozedur bei Klick auf Grafik auslösen Fehler in Codeprozedur
Prozedur zu lang Außerhalb einer Prozedur ungültig
Prozedur bei Wechsel Hintergrundfarbe ausführen Bei erster Makroausführung öffnet sich VBE im Debu
VBE-Kontextmenü "Definition" Prozedur dauert zu lange
Objekt an Prozedur übergeben Prozedur automatisch ausführen
2 Prozeduren ausführen Listbox breite einstellen in einer prozedur
aktuellen Prozedurnamen für Fehler-Log automatisch