Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Auflistung aller CommandBars
Gruppe
Bar
Problem
Wie kann ich in einem Arbeitsblatt alle Menü- und Symbolleisten mit ihrem System- und ihrem Namen in der lokalen Sprache auflisten lassen? In einer 3. Spalte soll angegeben werden, ob die CommandBar sichtbar oder nicht sichtbar ist.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain Sub Menueleisten() Dim oBar As CommandBar Dim iRow As Integer Cells(1, 1) = "Name" Cells(1, 2) = "Lokaler Name" Cells(1, 3) = "Sichtbar" iRow = 1 For Each oBar In Application.CommandBars iRow = iRow + 1 Cells(iRow, 1) = oBar.Name Cells(iRow, 2) = oBar.NameLocal Cells(iRow, 3) = oBar.Visible Next oBar Columns("A:C").AutoFit End Sub