VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Auflistung aller CommandBars

Gruppe

Menue

Bereich

Bar

Thema

Auflistung aller CommandBars

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

    


Beiträge aus dem Excel-Forum zu den Themen Menue und Bar