Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
580to584
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
580to584
580to584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

@jörg Gradert

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Danke
09.03.2005 18:29:41
Jörg
Hallo Ransi,
das ist ein schönes Tool.
Ich musste diese Zeile ändern, damit es läuft.
If CommandBars(a).Visible Then
alle:
Set stufe1 = .Nodes.Add(Text:=CommandBars(a).NameLocal & " ---->ID:=" & CommandBars(a).Index)
'statt "NameLocal" geht auch "Name"
'oder statt"ID:="& CommandBars(a).ID ghet auch
'& CommandBars(a).index
.ID geht bei mir, XL2000, hier nicht, es wird im Intellisense auch nicht angeboten.
Mit .Index funktioniert das Programm hervorragend.
Vielen Dank
Gruß Jörg
Anzeige
AW: @jörg Gradert
09.03.2005 18:47:47
ransi
Hallo jörg
versteh ich nicht:
"Ach ja, mit .ID kann ich die ID auslesen, habs rausgefunden 522 stimmt."
gestern hat xl2000 doch die zeile mit ID nicht angemeckert...
aber egal,
freut mich wenns dir weiterhilft.
ransi
Commandbars=Index Controls=ID, oder?
09.03.2005 19:30:02
Jörg
Hallo Ransi,
gestern hatten wir das
CommandBars("Worksheet Menu Bar").controls("Extras").ID
3007
jetzt wollen wir in Stufe 1 das, was nicht geht
CommandBars("Worksheet Menu Bar").ID 'oder aber auch CommandBars(a).ID

Userbild
Es ist ein klitzekleiner Unterschied, und wohl so, daß Commandbars einen Index haben, aber keine ID, oder ist das bei XL 10.0 anders?
Gruß Jörg
Anzeige
AW: Commandbars=Index Controls=ID, oder?
09.03.2005 19:41:47
ransi
hallo jörg
bei mir funzt das das tool ohne probleme.
versuch mal dies:
Option Explicit
Public 

Sub test()
Dim a As Integer
a = 1
MsgBox CommandBars("Worksheet Menu Bar").ID
MsgBox CommandBars(1).ID
MsgBox CommandBars(a).ID
End Sub

gibt bei mir dreimal 265.
wenns bei dir nicht klappt, stimmt wohl deine vermutung.
wäre allerdings schade, weil das ding ist echt nützlich wenn du
mal auf die schnelle mit .execute ein control ausrufen willst und nicht weisst welche ID das controll hat.
ransi
MsgBox CommandBars(1).ID geht nicht
09.03.2005 20:44:11
Jörg
Hallo Ransi,
CommandBars haben hier bei mir keine ID, Controls schon!
Darum laufen alle drei Varianten

Sub test()
Dim a As Integer
a = 1
MsgBox CommandBars("Worksheet Menu Bar").ID
MsgBox CommandBars(1).ID
MsgBox CommandBars(a).ID
End Sub

auf den Fehler "Methode oder Datenobjekt nicht gefunden".
Das Tool habe ich zum Laufen bekommen, ich musste im Programm in der ersten Stufe lediglich das CommandBars(a).ID in CommandBars(a).Index ändern.
Für die Controls werden dann die ID´s aufgelistet.
Gruß Jörg
Anzeige
hab ich wieder was gelernt,...
09.03.2005 20:53:13
ransi
hallo jörg
..Nämlich das commandbars unter XL2000 keine ID haben.
Freut mich wenn das "wesentliche" im code doch funktioniert.
ransi

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige