12.03.2021, 22:14
Hallo an alle Kollegen
heute habe ich mal einige fachliche Fragen an die Kollegen wo ich nicht weiter weiss. CommandBars und Menüband ab Excel 2007
Im alten 2003 konnte ich mir alle Menüleisten und Symbolleisten auflisten und per VBA neue Menüpunkte oder Buttons einfügen. Durch Ribbon geht das nicht mehr wie gewohnt. Ich habe im Internet einige Beispiele gefunden wie man neue IFade einfügen kann, komme aber noch nicht so richtig zurecht damit. Vor allem kann ich nicht genau nachvollziehen wo die neue Symbolleiste genau eingefügt wird und kann sie nicht auslesen. Beim experimentieren wurden Buttons erstellt die ich per VBA nicht löschen konnte! Mag ich nicht! Ich konnte aber auch nicht auslesen wo sie genau angebunden waren?? Das gefaellt mir noch weniger!
Bei CommandButton im Blatt kann ich mit dem Befehş Application.Caller den Button Index lesen und über SelectCase alle Button auswerten. Bei IFade klappt das nicht. wie kann ich dort erkennen welcher Button gedrückt wurde?? Kann man den Text, Index oder die Quick Info auslesen? Oder muss jeder Button sein eigenes Makro bekommen.
Wo genau wird unten im Code "Standard" hingelegt? Mit welchen Befehlen kann ich das Menüband und Symbolleisten ab 2007 auslesen?
Habt ihr bessere Code zum Ifade Button erstellen wie den unteren?? Ich mçhte mir 10-20 eigene Button erstellen um Projekte schneller bearbeiten zu können. Konkret ist meine Idee Standard Makros, die man staendig im Forum braucht, in eine Taberlle abzulegen und durch klicken (über den Zwischenspeicher?) oder direkt ins Modul einzufügen. z.B. For Next Schleifen mit Suchfunktionen oder kopieren, damit man viele Standard Befehle, Dim und Set Anweisungen nicht jedesmal neu schreiben muss. Habt ihr dafür schon eine fertige Lösung???
Vielen Dank für jede Hilfe die mich weiterbringt.
mfg Gast 123
Nachtrag vielleicht kann man daraus ja ein gemeinsames Projekt machen??
heute habe ich mal einige fachliche Fragen an die Kollegen wo ich nicht weiter weiss. CommandBars und Menüband ab Excel 2007
Im alten 2003 konnte ich mir alle Menüleisten und Symbolleisten auflisten und per VBA neue Menüpunkte oder Buttons einfügen. Durch Ribbon geht das nicht mehr wie gewohnt. Ich habe im Internet einige Beispiele gefunden wie man neue IFade einfügen kann, komme aber noch nicht so richtig zurecht damit. Vor allem kann ich nicht genau nachvollziehen wo die neue Symbolleiste genau eingefügt wird und kann sie nicht auslesen. Beim experimentieren wurden Buttons erstellt die ich per VBA nicht löschen konnte! Mag ich nicht! Ich konnte aber auch nicht auslesen wo sie genau angebunden waren?? Das gefaellt mir noch weniger!
Bei CommandButton im Blatt kann ich mit dem Befehş Application.Caller den Button Index lesen und über SelectCase alle Button auswerten. Bei IFade klappt das nicht. wie kann ich dort erkennen welcher Button gedrückt wurde?? Kann man den Text, Index oder die Quick Info auslesen? Oder muss jeder Button sein eigenes Makro bekommen.
Wo genau wird unten im Code "Standard" hingelegt? Mit welchen Befehlen kann ich das Menüband und Symbolleisten ab 2007 auslesen?
Habt ihr bessere Code zum Ifade Button erstellen wie den unteren?? Ich mçhte mir 10-20 eigene Button erstellen um Projekte schneller bearbeiten zu können. Konkret ist meine Idee Standard Makros, die man staendig im Forum braucht, in eine Taberlle abzulegen und durch klicken (über den Zwischenspeicher?) oder direkt ins Modul einzufügen. z.B. For Next Schleifen mit Suchfunktionen oder kopieren, damit man viele Standard Befehle, Dim und Set Anweisungen nicht jedesmal neu schreiben muss. Habt ihr dafür schon eine fertige Lösung???
Vielen Dank für jede Hilfe die mich weiterbringt.
mfg Gast 123
Code:
Sub Symbolleiste_erstellen()
Dim oBar As CommandBar
Dim oBtn As CommandBarButton
Set oBar = Application.CommandBars("Standard")
On Error Resume Next
oBar.Controls("MyButton").Delete
On Error GoTo 0
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = "MyButton" '00 Keine Funktiob!!
'erstellt max. 3 Button untereinander statt nebeneınander!'!
For j = 1 To 10
.Style = msoButtonIconAndCaption 'msoButtonIcon
.Caption = "My Button " & j
.FaceId = j + 360 '361
.OnAction = "Meldung"
Next j
.Height = 320
End With
End SubNachtrag vielleicht kann man daraus ja ein gemeinsames Projekt machen??
) einlesen …