Hallo Excel Freunde,
ich habe schon viel experimentiert, aber konnte mein krudes Problem nicht lösen. Folgendes: Ich lasse in einer Datei einen CommandBar anlegen. Dieser enthält ein SubMenü mit einem Button, einer ComboBox und einem EditField. Beim Anlegen bekommt jedes Element einen Tagging Wert zugewiesen. Wenn ich nun über den Klick auf den Button „Page: SetUp“ die Prozedur „Page_SetUp“ auslese, dann möchte ich in dieser Prozedur die Einstellungen der ComboBox und des EditFields ermitteln. Hierzu verwende ich „Application.CommandBars.FindControls(Tag:= xyz).Item(1)“. Dies hat bisher auch immer sehr gut funktioniert, aber in diesem speziellen Fall hat es mir viel Zeit und Nerven geraubt, da ich diese Unlogik nicht für möglich hielt. Z.B. die Suche nach der ComboBox, die mit „CPstrCmbBox_Footer“ getagged ist. Sie wird in der gesamten Datei nur einmal angelegt, aber als Ergebnis steht im Debug.Print „21“. Auch wird der Text („Katze“) nicht korrekt ermittelt. Selbiges gilt für das EditField. Als Wert steht 100 drin, aber im Debug.Print sehe ich 80.
https://www.herber.de/bbs/user/74341.xls
Ich komme nicht weiter. Ich könnte sicherlich auch eine Konstruktion ohne „.FindControls“ erreichen, aber dieser Fehler ist so unlogisch, daß ich gern noch eine andere Expertenmeinung aus dem Forum zu diesem Problem gehört hätte. Oder habe ich etwas Elementares übersehen oder falsch programmiert? Die Microsoft Hilfeseiten und das Internet haben bisher keine weiterführenden Informationen gebracht.
Ich würde mich sehr freuen, wenn jemand zur allgemeinen Erhellung seine Ideen und Vorschläge unterbreiten würde.
Vielen Dank und Grüße, Andreas Hanisch
PS: Vielleicht ist das ja nur auf meiner Maschine so und bei jemand anderem funktioniert es…