|
Autor
|
Thema: Problem mit Steuerelement (780 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:
|
Foren auf CAD.de (alle Foren)
| 
)
