{"id":55000330,"date":"2022-08-01T00:00:00","date_gmt":"2023-03-02T17:03:53","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=330"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Excel_Arbeitsblaetter_per_Ribbon_steuern","status":"publish","type":"post","link":"https:\/\/vbentwickler.de\/Excel_Arbeitsblaetter_per_Ribbon_steuern\/","title":{"rendered":"Excel: Arbeitsblätter per Ribbon steuern"},"content":{"rendered":"

Wenn Du eine eigene Excel-Lösung mit einigen Arbeitsblättern erstellt hast, stört es Dich vielleicht, dass Du nicht schnell über die Registerreiter unten im Excel-Fenster auf alle Arbeitsblätter zugreifen kannst. Je nach Fenstergröße und Anzahl der Arbeitsblätter zeigt Excel dort nämlich nicht alle Arbeitsblätter an. Damit haben wir allerdings ein schönes Beispiel für den Einsatz des Ribbons in einer Excel-Arbeitsmappe. Diesem fügen wir ein Tab mit einem Button für jedes Arbeitsblatt, das schnell erreichbar sein soll, hinzu. Das Ribbon hat noch einen Vorteil: Wenn wir dort für die wichtigsten Arbeitsblätter je eine Schaltfläche hinzufügen, können wir diese auch noch mit einem Icon ausstatten, um das gesuchte Arbeitsblatt noch schneller zu finden.<\/b><\/p>\n

Grundlagen zu Ribbons in Office-Dokumenten<\/h2>\n

Wie wir einer Excel-Arbeitsmappe ein eigenes Ribbon hinzufügen, haben wir grundlegend im Artikel Ribbons in Office-Dokumenten <\/b>(www.vbentwickler.de\/329<\/b>) erläutert.<\/p>\n

Hier haben wir das Tool Office RibbonX Editor <\/b>vorgestellt, mit dem wir das Ribbon eines Office-Dokuments bearbeiten können. <\/p>\n

Excel-Arbeitsmappe mit VBA-Code erstellen<\/h2>\n

Da wir für die geplanten Ribbon-Buttons VBA-Code hinterlegen wollen, können wir direkt eine Excel-Arbeitsmappe mit der Dateiendung .xlsm <\/b>anlegen. Diese nennen wir Excel_ArbeitsblaetterPerRibbon.xlsm<\/b>.<\/p>\n

Der Arbeitsmappe fügen wir neben dem vorhandenen Arbeitsblatt noch weitere Arbeitsblätter hinzu. Anschließend soll das Register am unteren Rand wie in Bild 1 aussehen. Hier ist anhand der drei Punkte (…) zu erkennen, dass in dieser Ansicht nicht alle Registerreiter angezeigt werden können.<\/p>\n

\"Arbeitsmappe<\/p>\n

Bild 1: Arbeitsmappe mit einigen Arbeitsblättern<\/span><\/b><\/p>\n

Ribbondefinition zusammenstellen<\/h2>\n

Die Ribbondefinition ist nicht besonders komplex, da sie lediglich ein tab<\/b>-, ein group<\/b>– und einige button<\/b>-Elemente enthält, wobei wir für das tab<\/b>-Element noch per Attribut festlegen müssen, an welcher Position es angezeigt werden soll. Vielleicht möchtest Du auch alle eingebauten Ribbon-Tabs ausblenden und nur dieses tab<\/b>-Element anzeigen – das ist noch einfacher zu realisieren.<\/p>\n

Bevor wir mit dem Zusammenstellen beginnen, öffnen wir die Excel-Arbeitsmappe mit dem Tool Office RibbonX Editor<\/b>. Hier klicken wir mit der rechten Maustaste auf den Eintrag für die Arbeitsmappe und wählen den Befehl Insert Office 2010+ Custom UI Part <\/b>aus. Danach fügen wir die Icons hinzu, die mit den button<\/b>-Elementen angezeigt werden sollen. Dazu betätigen wir die Schaltfläche Insert Icons <\/b>und wählen im nun erscheinenden Dialog die einzufügenden Bilddateien aus. Diese werden anschließend in der Liste links angezeigt.<\/p>\n

Klicken wir doppelt auf den Eintrag customUI14.xml<\/b>, erscheint ein leerer Bereich auf der rechten Seite, wo wir die Ribbondefinition eingeben können. Wenn wir alle anderen Elemente ausblenden wollen, können wir dies wie in Bild 2 definieren.<\/p>\n

\"Anlegen<\/p>\n

Bild 2: Anlegen der Ribbondefinition plus Icons<\/span><\/b><\/p>\n

Hier finden wir allerdings nur ein button<\/b>-Element vor:<\/p>\n

<button id=\"btnApple\" label=\"Apple\" onAction=\"onAction\" image=\"apple\" size=\"large\"\/><\/pre>\n
XML-Code für Arbeitsblatt-Buttons per VBA erstellen<\/h2>\n
Um die button<\/b>-Elemente für die übrigen Arbeitsblätter zu definieren, können wir diese von Hand eintippen oder kopieren und anpassen.<\/p>\n
Oder wir verfolgen das Credo dieses Magazins und schreiben uns schnell eine Prozedur, die uns den Code für alle Registerreiter zusammenstellt.<\/p>\n
Diese Prozedur sieht wie in Listing 1 aus. Sie deklariert eine Variable zum Referenzieren von Worksheet<\/b>-Elementen und durchläuft diese in einer For Each<\/b>-Schleife über alle Elemente der Auflistung ThisWorkbook.Worksheets<\/b>.<\/p>\n
Public Sub <\/span>RibbonButtonsDefinieren()\r\n     Dim <\/span>strXML As String<\/span>\r\n     Dim <\/span>strName As String<\/span>\r\n     Dim <\/span>wks As <\/span>Worksheet\r\n     For Each wks In ThisWorkbook.Worksheets\r\n         strName = wks.Name\r\n         strXML = strXML & \"<button id=\"\"btn\" & Replace<\/span>(strName, \" \", \"_\") & \"\"\" label=\"\"\" & strName _\r\n             & \"\"\" onAction=\"\"onAction\"\" image=\"\"\" & LCase(Replace<\/span>(strName, \" \", \"_\")) & \"\"\" size=\"\"large\"\"\/>\" & vbCrLf<\/span>\r\n     Next<\/span> wks\r\n     Debug.Print<\/span> strXML\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Prozedur zum Zusammenstellen von button-Definitionen<\/span><\/b><\/p>\n
Innerhalb der Schleife liest sie den Namen des aktuellen Worksheet<\/b>-Elements aus, wie er unten in der Registerleiste dargestellt wird, und speichert diesen in der Variablen strName<\/b>. In der zweiten Anweisung innerhalb der Schleife stellen wir den Code für das jeweilige button<\/b>-Element zusammen.<\/p>\n
Dabei setzen wir beispielsweise den Wert für das Attribut id <\/b>aus dem Präfix btn <\/b>und dem Namen aus strName <\/b>zusammen, wobei wir hier noch Leerzeichen durch Unterstriche ersetzen. Aus Apple Bite <\/b>wird so Apple_Bite<\/b>. Der Wert für das Attribut label <\/b>entspricht der Beschriftung des Registerreiters für dieses Arbeitsblatt und der Wert für das Attribut image <\/b>entspricht ebenfalls dem Namen, allerdings wieder mit ersetzen Leerzeichen – und die Großbuchstaben ersetzen wir mit der Funktion LCase <\/b>durch Kleinbuchstaben.<\/p>\n
Diese Ausdrücke hängen wir aneinander und fügen jeweils noch einen Zeilenumbruch dazwischen ein. Das Ergebnis geben wir im Direktbereich aus. Von dort kopieren wir den Code und fügen diesen nach dem Schließen der Excel-Datei und dem erneuten Öffnen im Office RibbonX Editor <\/b>in die Ribbondefinition ein.<\/p>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t
\n\n\t\t\n\t\t