Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Button Funktion

Betrifft: Button Funktion von: Thomas Fischer
Geschrieben am: 21.08.2014 14:09:48

Hallo

Gibt es die Möglichkeit, die Funktion eines Buttons aus den Symbolleisten auf
einen Button innerhalb einer Tabelle zu legen?

ZB.
Im Reiter Add-Ins habe ich ein Add in, diese Funktion möchte ich
auf Schaltfläche 1 legen.

Gruß
Tommy

  

Betrifft: AW: Button Funktion von: Mullit
Geschrieben am: 21.08.2014 17:52:29

Hallo,

klaro:

CommandBars("MyComBar").Controls("MyControl").Execute

Gruß,


  

Betrifft: AW: Button Funktion von: Thomas Fischer
Geschrieben am: 22.08.2014 07:24:37

Hallo

Das geht leider irgendwie nicht.
Bekomme folgende Fehlermeldung:
Laufzeitfehler 5
Ungültiger Prozeduraufruf oder Argument

Kann es sein, das die Bezeichnung der Leiste und des Buttons falsch sind?

CommandBars ("Add-Ins").Controls("Venus ASCII Importer").Execute

Woher bekomme ich den den Namen der Registerkarte und des Buttons?

Mit freundlichen Grüßen
Tommy


  

Betrifft: AW: Button Funktion von: Mullit
Geschrieben am: 22.08.2014 08:33:21

Hallo,

das war auch Crap von mir...

Die Controls spricht man über den Index an also:

CommandBars("MyComBar").Controls(1).Execute

Wenn Du eine eigene Symbolleiste hast, müsstest Du für "MyComBar" den Namen der Symbolleiste
eingeben, nicht den Namen des Addin-Reiters.

Ich vermute aber, daß Du da RibbonX-Elemente am Wickel hast, dannn geht es so sowieso nicht und
Du müsstest Dich durch mumpels Tutorial durcharbeiten, da ich mich damit nicht gut auskenne...

Gruß,


  

Betrifft: AW: Button Funktion von: Thomas Fischer
Geschrieben am: 22.08.2014 09:18:48

Wo finde ich denn den Namen für die Symbolleiste?


  

Betrifft: AW: Button Funktion von: Mullit
Geschrieben am: 22.08.2014 10:01:25

Hallo,

wenn's dann eine Symbolleiste ist, müsstest Du schon einmal durchloopen:

Option Explicit

Public Sub test1()
  Dim cmcControl As CommandBarControl
  Dim cmbBar As CommandBar
  For Each cmbBar In CommandBars
     For Each cmcControl In cmbBar.Controls
        Debug.Print cmcControl.Caption & "   " & cmcControl.Parent.Name
     Next
  Next
End Sub

Wenn "Venus ASCII Importer" die Caption Deines Controls ist, dann geht auch das:
Option Explicit

Public Sub test2()
  Dim cmcControl As CommandBarControl
  Dim cmbBar As CommandBar
  For Each cmbBar In CommandBars
     For Each cmcControl In cmbBar.Controls
        If cmcControl.Caption = "Venus ASCII Importer" Then _
          MsgBox cmcControl.Parent.Name: Exit Sub
     Next
  Next
End Sub



  

Betrifft: AW: Button Funktion von: Mullit
Geschrieben am: 22.08.2014 12:11:27

Hallo,

da kannst du natürlich auch gleich versuchen, das Control zu feuern...

Option Explicit

Public Sub test2()
  Dim cmcControl As CommandBarControl
  Dim cmbBar As CommandBar
  For Each cmbBar In CommandBars
     For Each cmcControl In cmbBar.Controls
        If cmcControl.Caption = "Venus ASCII Importer" Then _
          cmcControl.Execute: Exit Sub
     Next
  Next
End Sub
Gruß,


 

Beiträge aus den Excel-Beispielen zum Thema "Button Funktion "