CommandBar - ID-Nummern | HERBERS Excel Forum

Forumthread: CommandBar - ID-Nummern

CommandBar - ID-Nummern

03.01.2005 10:38:40

Joe

Hi Leute,
kennt jemand von euch die CommanBar - ID-Nummern von
Ausschneiden
Kopieren
Einfügen
Inhalte einfügen
Zellen einfügen
Zellen löschen
Kommentare einfügen
Zellen formatieren
Auswahlliste
Überwachung hinzufügen
Hyperlink
möhte nämlich mein eigenes Kontextmenü erstellen, das Standartkontextmenü zuzüglich verschiedenen Füllfarben. Das Problem ist, ich hab jetzt mein Standartkontextmenü mit den oben stehenden Befehlen gelöscht, und weiß nich genau wie ichs wieder herkriege?
Hoff von euch kann mir jemand weiterhelfen
Gruß Joe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: CommandBar - ID-Nummern

ransi

hallo joe
die IDs kann ich dir auch nicht sagen, aber für dein zerschossenes kontextmenu
könnte dieser einzeiler helfen.
Public


Sub t()
CommandBars("cell").Reset
End Sub

ransi

AW: CommandBar - ID-Nummern

Joe

Danke, jetzt paßt wenigstens wieder das Standartmenü

AW: CommandBar - ID-Nummern

ransi

Hallo joe
starte dies mal in einem leeren tabellenblatt:
Das hilft dir bestimmt bei der suche:
Option Explicit
Public Sub controlls()
Dim i As Long
Dim j As Integer
Dim k As Integer
Dim zelle As Range
Cells(1, 1) = ".Name"
Cells(1, 2) = ".NameLocal"
Cells(1, 3) = ".type"
Cells(1, 4) = ".caption"
Cells(1, 5) = ".ID"
Cells(1, 6) = ".controls.type"
Cells(1, 7) = ".Tooltiptext"
k = 2
For i = 1 To Application.CommandBars.Count
Cells(k, 1) = Application.CommandBars(i).Name
Cells(k, 2) = Application.CommandBars(i).NameLocal
Cells(k, 3) = Application.CommandBars(i).Type
For j = 1 To Application.CommandBars(i).Controls.Count
Cells(k, 4) = Application.CommandBars(i).Controls.Item(j).Caption
Cells(k, 5) = Application.CommandBars(i).Controls.Item(j).ID
Cells(k, 6) = Application.CommandBars(i).Controls.Item(j).Type
Cells(k, 7) = Application.CommandBars(i).Controls.Item(j).TooltipText
k = k + 1
Next j
Next i
For Each zelle In Range("a2:c1076")
If zelle.Value = "" Then zelle.Value = zelle.Offset(-1, 0).Value
Next
'formatieren
Rows("1:1").AutoFilter
Columns("A:G").AutoFit
With Range("a1:g1").Font
      .Size = 12
      .Bold = True
End With
End Sub
ohne anspruch auf richtigkeit.
ransi

Infobox / Tutorial

CommandBar - ID-Nummern in Excel anpassen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um das Standard-Kontextmenü in Excel wiederherzustellen oder anzupassen, kannst Du die folgenden Schritte befolgen:

Öffne den VBA-Editor:
- Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Füge ein neues Modul hinzu:
- Klicke im Menü auf Einfügen > Modul.
Füge den folgenden Code ein:
```
Sub t()
   CommandBars("cell").Reset
End Sub
```
Dieser Code setzt das Kontextmenü für Zellen auf die Standardwerte zurück.
Führe das Makro aus:
- Du kannst das Makro direkt im VBA-Editor ausführen, indem Du den Cursor innerhalb des Codes platzierst und F5 drückst.
Überprüfe das Ergebnis:
- Kehre zu Excel zurück und klicke mit der rechten Maustaste auf eine Zelle, um das Kontextmenü zu prüfen.

Häufige Fehler und Lösungen

Fehler: Kontextmenü bleibt unverändert
- Lösung: Stelle sicher, dass Du das richtige Kontextmenü zurücksetzt. Der Code CommandBars("cell").Reset sollte in einem Modul und nicht in einem Arbeitsblattmodul stehen.
Fehler: VBA-Code funktioniert nicht
- Lösung: Überprüfe, ob die Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter, und aktiviere die Makros.

Alternative Methoden

Falls Du alternative Ansätze zur Anpassung der CommandBars in Excel verwenden möchtest, gibt es folgende Möglichkeiten:

Direkte Anpassung über das Menü:
- In Excel kannst Du auch über Datei > Optionen > Menüband anpassen diverse Befehle zu Deinem Menü hinzufügen.
Erstellen eines eigenen Kontextmenüs:
- Du kannst Dein eigenes Kontextmenü mit benutzerdefinierten Funktionen erstellen. Verwende dazu den VBA-Code, um spezifische Befehle zu definieren.

Praktische Beispiele

Hier sind einige praktische Beispiele, wie Du die application.commandbars in Excel verwenden kannst:

Um alle verfügbaren CommandBars aufzulisten, kannst Du folgenden Code verwenden:

Sub ListCommandBars()
  Dim i As Long
  For i = 1 To Application.CommandBars.Count
      Debug.Print Application.CommandBars(i).Name
  Next i
End Sub

Dieser Code gibt die Namen aller CommandBars im Direktfenster aus.

Tipps für Profis

Verwendung von application.commandbars("cell"):
- Nutze spezifische CommandBars wie application.commandbars("cell"), um gezielt Änderungen am Zellen-Kontextmenü vorzunehmen.
Makros zur Automatisierung:
- Automatisiere Aufgaben, indem Du Makros erstellst, die häufig verwendete Befehle zu Deinem Kontextmenü hinzufügen.
Sichern Deiner Anpassungen:
- Stelle sicher, dass Du regelmäßig Sicherungen Deiner Excel-Dateien machst, insbesondere bevor Du mit vba application.commandbars arbeitest.

FAQ: Häufige Fragen

1. Wie kann ich ein benutzerdefiniertes Kontextmenü erstellen?
Du kannst ein benutzerdefiniertes Kontextmenü erstellen, indem Du ein neues CommandBar-Objekt in VBA definierst und die gewünschten Befehle hinzufügst.

2. Was passiert, wenn ich das Standardkontextmenü lösche?
Wenn Du das Standardkontextmenü löschst, kannst Du es mit dem Befehl CommandBars("cell").Reset wiederherstellen.

3. Welche Excel-Version benötige ich für die Nutzung von application.commandbars?
Der Einsatz von application.commandbars ist in den meisten modernen Excel-Versionen wie Excel 2010, 2013, 2016 und 2019 möglich.

Beliebteste Forumthreads (12 Monate)

CommandBar - ID-Nummern

Forumthread: CommandBar - ID-Nummern

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

CommandBar - ID-Nummern in Excel anpassen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

CommandBar - ID-Nummern

Forumthread: CommandBar - ID-Nummern

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

CommandBar - ID-Nummern in Excel anpassen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread