2
Outlook Skript zum Auffüllen einer ComboBox mit Abhängigkeit
Moinsen,
ich habe hier ein Aufgabenformular erstellt mit zwei ComboBoxen.
Box 1 habe ich bereits, über die Eigenschaften, mit Werten gefüllt. Nun möchte ich, das sobald ich in der Box 1 einen Eintrag auswähle, automatisch Box 2 mit speziellen Einträgen gefüllt wird. Als Beispiel:
In Box1 wird der Eintrag "Ball" ausgewählt
In Box2 sollen daraufhin folgende Begriffe zu Auswahl stehen: "Pumpe";"Ventil";"Leder"
Wird in Box1 nun ein anderer Eintrag ausgewählt sollen sich logischerweise auch die Auswahlmöglichkeiten in Box2 ändern.
Mit dem aus Excel bekannten VBA komm ich irgendwie nicht weiter. Hat jemand eine Idee wie man solch ein Script aufbauen kann ?
Vielen Dank!
ich habe hier ein Aufgabenformular erstellt mit zwei ComboBoxen.
Box 1 habe ich bereits, über die Eigenschaften, mit Werten gefüllt. Nun möchte ich, das sobald ich in der Box 1 einen Eintrag auswähle, automatisch Box 2 mit speziellen Einträgen gefüllt wird. Als Beispiel:
In Box1 wird der Eintrag "Ball" ausgewählt
In Box2 sollen daraufhin folgende Begriffe zu Auswahl stehen: "Pumpe";"Ventil";"Leder"
Wird in Box1 nun ein anderer Eintrag ausgewählt sollen sich logischerweise auch die Auswahlmöglichkeiten in Box2 ändern.
Mit dem aus Excel bekannten VBA komm ich irgendwie nicht weiter. Hat jemand eine Idee wie man solch ein Script aufbauen kann ?
Vielen Dank!
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 106537
Url: https://administrator.de/contentid/106537
Printed on: April 18, 2024 at 16:04 o'clock
2 Comments
Latest comment
ich habe dir auf deinen anderen Beitrag geantwortert
Visual Basic in einem selbsterstellen Formular (Outlook) benutzen
Visual Basic in einem selbsterstellen Formular (Outlook) benutzen
Hier eine Lösung für alle die es interessiert ;>
Sub Item_CustomPropertyChange(ByVal Name)
Set formTab = Item.GetInspector.ModifiedFormPages("Aufgabe")
Set varFirma = formTab.Controls("Quell_Combo")
If varFirma.value = "Ball" then
Set comboChoice = formTab.Controls("Ziel_Combo")
comboChoice.PossibleValues = "Pumpe;Ventil"
End If
End Sub
Sub Item_CustomPropertyChange(ByVal Name)
Set formTab = Item.GetInspector.ModifiedFormPages("Aufgabe")
Set varFirma = formTab.Controls("Quell_Combo")
If varFirma.value = "Ball" then
Set comboChoice = formTab.Controls("Ziel_Combo")
comboChoice.PossibleValues = "Pumpe;Ventil"
End If
End Sub
