| |
| Xometry ermöglicht JTW Astronomy die Herstellung hochwertiger Trident Teleskophalterungen, ein Anwenderbericht
|
Autor
|
Thema: Problem mit Steuerelement (782 mal gelesen)
|
inv-Kristof Mitglied Dipl-- Ing. (FH)
Beiträge: 1135 Registriert: 01.01.2004 HP 8710w, Win Vista 64x, IV 2009 SP2 Intel® Core™ 2 Duo T9500 2,6 GHz, 4 GB RAM nVidia® Quadro FX 3600M, 17" 1920x1200 ---------------- AMD 64bit 3200+; 2GB DDR400 GeForce 6600GT 128MB Win Vista 64x IV 2009 SP2
|
erstellt am: 24. Jun. 2007 22:41 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich habe ein kleines Problem, das von mir leider nicht zu lösen ist. Ich habe ein Formularsteuerelement in meiner Mappe, das Kombinationsfeld heisst. Ich habe jetzt das zweite Kombinationsfeld erstellt und ich will ihn nur dann anzeigen lassen, wenn im ersten Kombinationsfeld eine bestimmte Meldung kommt. Ist das machbar?Wenn ja biite um Hilfe ------------------ -------- Gruß Kristof Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Nepumuk Mitglied Entwicklungsleiter
Beiträge: 351 Registriert: 16.10.2004
|
erstellt am: 24. Jun. 2007 23:20 <-- editieren / zitieren --> Unities abgeben: Nur für inv-Kristof
|
inv-Kristof Mitglied Dipl-- Ing. (FH)
Beiträge: 1135 Registriert: 01.01.2004 HP 8710w, Win Vista 64x, IV 2009 SP2 Intel® Core™ 2 Duo T9500 2,6 GHz, 4 GB RAM nVidia® Quadro FX 3600M, 17" 1920x1200 ---------------- AMD 64bit 3200+; 2GB DDR400 GeForce 6600GT 128MB Win Vista 64x IV 2009 SP2
|
erstellt am: 24. Jun. 2007 23:32 <-- editieren / zitieren --> Unities abgeben:
|
Nepumuk Mitglied Entwicklungsleiter
Beiträge: 351 Registriert: 16.10.2004
|
erstellt am: 24. Jun. 2007 23:41 <-- editieren / zitieren --> Unities abgeben: Nur für inv-Kristof
Hallo Kristof, da du nicht schreibst, aus welcher Symbolleiste die Combobox kommt, hier mal ein Beispiel für die aus der "Steuerelement-Toolbox": Code: Private Sub ComboBox1_Change() ComboBox2.Visible = ComboBox1.Value = "Bestimmter Eintrag" End Sub
------------------ Gruß Nepumuk Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
inv-Kristof Mitglied Dipl-- Ing. (FH)
Beiträge: 1135 Registriert: 01.01.2004 HP 8710w, Win Vista 64x, IV 2009 SP2 Intel® Core™ 2 Duo T9500 2,6 GHz, 4 GB RAM nVidia® Quadro FX 3600M, 17" 1920x1200 ---------------- AMD 64bit 3200+; 2GB DDR400 GeForce 6600GT 128MB Win Vista 64x IV 2009 SP2
|
erstellt am: 25. Jun. 2007 00:02 <-- editieren / zitieren --> Unities abgeben:
Hallo Nepemuk, doch habe ich geschrieben, dass es sich hier um ein Formularsteuerelement handelt und nicht um ein ActiveX-Steuerelement. Aber egal. Anbei das Beispiel, wie ich mir das vorstelle. ------------------ --------
Gruß Kristof [Diese Nachricht wurde von inv-Kristof am 25. Jun. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Nepumuk Mitglied Entwicklungsleiter
Beiträge: 351 Registriert: 16.10.2004
|
erstellt am: 25. Jun. 2007 01:50 <-- editieren / zitieren --> Unities abgeben: Nur für inv-Kristof
|
inv-Kristof Mitglied Dipl-- Ing. (FH)
Beiträge: 1135 Registriert: 01.01.2004 HP 8710w, Win Vista 64x, IV 2009 SP2 Intel® Core™ 2 Duo T9500 2,6 GHz, 4 GB RAM nVidia® Quadro FX 3600M, 17" 1920x1200 ---------------- AMD 64bit 3200+; 2GB DDR400 GeForce 6600GT 128MB Win Vista 64x IV 2009 SP2
|
erstellt am: 25. Jun. 2007 20:04 <-- editieren / zitieren --> Unities abgeben:
Hallo Nepemuk, wunderbar funktioniert das Ding, leider nur dein Beispiel Ich wollte selber dieses Makro in mein Datenblatt einbinden und es klappt nicht. Ich beschreibe meine Schritte: Ich gehe auf das erste Formularsteuerelement, rechte Maustaste- Makro zuweisen und es steht als Makroname: Dropdown869_BeiÄnderung(). Dann klicke ich auf Neu und kopiere dein Code und ändere ich auf: Sub Dropdown869_BeiÄnderung() Dim objShape As Shape Set objShape = Datenblatt.Shapes("Drop Down 869") Datenblatt.Shapes("Drop Down 875").Visible = IIf(objShape.ControlFormat.List( _ objShape.ControlFormat.ListIndex) = "b", msoTrue, msoFalse) Dieselben Schritte mache ich beim zweiten Formularsteuerelement und wenn ich das ganze testen will bekomme ich einen Fehler: Laufzeitfehler 424 Objekt erforderlich Kannst du mir bitte sagen wie ich dein Code in meine Arbeitsmappe einbinden soll oder was mache ich falsch? ------------------ -------- Gruß Kristof Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
inv-Kristof Mitglied Dipl-- Ing. (FH)
Beiträge: 1135 Registriert: 01.01.2004 HP 8710w, Win Vista 64x, IV 2009 SP2 Intel® Core™ 2 Duo T9500 2,6 GHz, 4 GB RAM nVidia® Quadro FX 3600M, 17" 1920x1200 ---------------- AMD 64bit 3200+; 2GB DDR400 GeForce 6600GT 128MB Win Vista 64x IV 2009 SP2
|
erstellt am: 25. Jun. 2007 22:06 <-- editieren / zitieren --> Unities abgeben:
Hallo Nepemuk, mitllerweile habe ich dieselbe Konstelation gekriegt wie du. Jetzt bekomme ich jedoch die folgende Meldung, wenn ich in einem Formularsteuerelement einen Eintrag auswählen will: Laufzeitfehler -2147024809 (80070057) Das Element mit dem angegebenen Namen wurde nicht gefunden
------------------ -------- Gruß Kristof Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
inv-Kristof Mitglied Dipl-- Ing. (FH)
Beiträge: 1135 Registriert: 01.01.2004 HP 8710w, Win Vista 64x, IV 2009 SP2 Intel® Core™ 2 Duo T9500 2,6 GHz, 4 GB RAM nVidia® Quadro FX 3600M, 17" 1920x1200 ---------------- AMD 64bit 3200+; 2GB DDR400 GeForce 6600GT 128MB Win Vista 64x IV 2009 SP2
|
erstellt am: 26. Jun. 2007 08:44 <-- editieren / zitieren --> Unities abgeben:
Hallo Nepemuk, es funktioniert endlich auch bei mir. ich habe jedoch noch eine kleine Frage wie muss ich das Makro ergänzen, dass es nicht nur beim Eintrag "SP" das zweite Formularsteuerelement verschwindet sondern auch bei "SPS" und "AB" Hier das korekte MAkro: Sub Dropdown1_BeiÄnderung() Dim objShape As Shape Set objShape = Tabelle1.Shapes("Dropdown 1") Tabelle1.Shapes("Dropdown 2").Visible = IIf(objShape.ControlFormat.List( _ objShape.ControlFormat.ListIndex) = "SP", msoTrue, msoFalse) End Sub ------------------ -------- Gruß Kristof Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 26. Jun. 2007 09:58 <-- editieren / zitieren --> Unities abgeben: Nur für inv-Kristof
Hallo, z.B. so - quick and dirty! - Code: Sub Dropdown1_BeiÄnderung() Dim objShape As Shape Dim strWert As String Set objShape = Tabelle1.Shapes("Dropdown 1") strWert = objShape.ControlFormat.List(objShape.ControlFormat.ListIndex) If strWert = "SP" Or strWert = "SPS" Or strWert = "AB" Then Tabelle1.Shapes("Dropdown 2").Visible = False Else: Tabelle1.Shapes("Dropdown 2").Visible = True End If End Sub
Eingabebereich von Dropdown 1 entsprechend anpassen, damit die Werte gelistet werden. @Kristof: Du hast PM!------------------ Gruß, Frederik DIN1055.de | Lastannahmen für Anwender Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
inv-Kristof Mitglied Dipl-- Ing. (FH)
Beiträge: 1135 Registriert: 01.01.2004 HP 8710w, Win Vista 64x, IV 2009 SP2 Intel® Core™ 2 Duo T9500 2,6 GHz, 4 GB RAM nVidia® Quadro FX 3600M, 17" 1920x1200 ---------------- AMD 64bit 3200+; 2GB DDR400 GeForce 6600GT 128MB Win Vista 64x IV 2009 SP2
|
erstellt am: 26. Jun. 2007 20:55 <-- editieren / zitieren --> Unities abgeben:
|