Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

CommandButton kopieren


Betrifft: CommandButton kopieren von: Peter Egloff
Geschrieben am: 09.02.2019 16:23:55

Hallo zusammen
Ich habe einen Tabelle mit 20 Tabellelblätter
Jetzt möchte ich auf allen Tabellenblättern einen CommandButton haben.
Ich habe mir vorgestellt, diesen Button 1x zu erstellen und auf die anderen Tabellen zu kopieren, umzubenennen und zu positionieren - doch das habe ich mir einfacher vorgestellt. Hat jemand einen Tipp - Vielen Dank
Pepi

  

Betrifft: AW: CommandButton kopieren von: Hajo_Zi
Geschrieben am: 09.02.2019 16:25:42

Hallo Pepi,

benutze eine Symbolleiste.
http://www.hajo-excel.de/vba_menue.htm

GrußformelHomepage

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.


  

Betrifft: AW: CommandButton kopieren von: Beverly
Geschrieben am: 10.02.2019 08:05:15

Hi,

weshalb muss der CommandButton denn umbenannt werden und weshalb erstellst du ihn nicht einmalig in einer Tabelle und duplizierst dann die gesamte Tabelle?


GrußformelBeverly's Excel - Inn


  

Betrifft: AW: CommandButton kopieren von: Peter Egloff
Geschrieben am: 10.02.2019 12:44:01

Hallo zusammen, danke für die Tipps. Das mit der Symbolleist will ich nicht, weil das Makro nicht in jeder Arbeitsmappe verfügbar sein soll, das Kopieren des Tabellenblattes geht nicht weil, ich den Button nachträglich hinzufügen will.
Ich habe folgenden Code gefunden:

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=10, Top:=10, Width:=30, Height:=20).Select

dieser wird zwar ausgeführt, aber ich erhalten die Meldung: "Wechsel in den Haltemodus zu diesem Zeitpunkt nicht möglich"
Das gleiche passiert auch, wenn ich einen Button kopiere. Ich will den Button nicht nur umbennen sondern auch positionieren, evt. Grösse und Beschriftung ändern.
Danke für weitere Tipps
Pepi


  

Betrifft: AW: CommandButton kopieren von: Peter Egloff
Geschrieben am: 10.02.2019 14:47:52

Hallo Karin, das hat mich schon einer gefragt ....


  

Betrifft: Und wo ist das Problem... von: Beverly
Geschrieben am: 10.02.2019 15:24:18

Hi,

...wenn ich das nochmal frage? In diesem Thread hier war es außer mir niemand...

Die Fehlermeldung kommt, wenn du den Code im VBA-Editor im Einzelschrittmodus ausführst. Weise das Makro entweder einer Schaltfläche zu oder benutze im VBA-Editor F5 - dann wird er problemlos ausgeführt. Außerdem kann man auf Select verzichten:

Dim oobElement As OLEObject
Set oobElement = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
    Link:=False, DisplayAsIcon:=False, Left:=10, Top:=10, Width:=30, Height:=20)
oobElement.Name = "Schalter1"

GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Und wo ist das Problem... von: Peter Egloff
Geschrieben am: 10.02.2019 18:31:07

Vielen Dank, das sieht ja schon mal gut aus und hat bei mir auch funktioniert.
doch
oobElement.Caption = "xxx" oder
oobElement.backcolor = &H00FFFF80&
geht wohl nicht
mfg Pepi


  

Betrifft: Dazu musst du das Objekt... von: Beverly
Geschrieben am: 10.02.2019 18:45:07

...ansprechen:

With oobElement.Object
    .BackColor = &HFFFF80
    .Caption = "xxx"
End With


GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Dazu musst du das Objekt... von: Peter Egloff
Geschrieben am: 11.02.2019 10:49:25

herzlichen Dank Karin
Genau, das wollte ich - supper!!!

glg Pepi


Beiträge aus dem Excel-Forum zum Thema "CommandButton kopieren"