Option
Explicit
Const
cVerfahren
As
String
=
"Obst Gemüse Südfrüchte Exoten"
Const
cObst
As
String
=
"Äpfel Birnen Kirchen Pflaumen"
Const
cGemüse
As
String
=
"Auberginen Broccoli Mangold Paprika Romanesco Sellerie"
Const
cSüdfrüchte
As
String
=
"ausverkauft"
Const
cExoten
As
String
=
"Durants Litschis"
Dim
arrVerfahren()
As
String
Dim
arrGroeße()
As
String
Private
Sub
CBx_Verfahren_Change()
Dim
x
As
Integer
With
Me
.CBx_Groeße
Select
Case
Me
.CBx_Verfahren.Value
Case
"Obst"
arrGroeße = Split(cObst)
Case
"Gemüse"
arrGroeße = Split(cGemüse)
Case
"Südfrüchte"
arrGroeße = Split(cSüdfrüchte)
Case
"Exoten"
arrGroeße = Split(cExoten)
End
Select
.Clear
For
x = LBound(arrGroeße)
To
UBound(arrGroeße)
.AddItem arrGroeße(x)
Next
x
End
With
End
Sub
Private
Sub
UserForm_Initialize()
Dim
x
As
Integer
arrVerfahren = Split(cVerfahren)
With
Me
.CBx_Verfahren
For
x = LBound(arrVerfahren)
To
UBound(arrVerfahren)
.AddItem arrVerfahren(x)
Next
x
End
With
End
Sub