Textbox in abhängigkeit von "DropdownValue" zeigen
30.10.2008 16:07:48
"DropdownValue"
hab da mal ein kleines Problem!
Da ich einfach ein Anfänger bin komm ich nicht auf die wahrscheinlich simple Lösung =(
Möchte einfach nur 5 Textefelder in dem Sheet, die jeweils nur sichtbar sind wenn ein bestimmter Wert in ComboBox2 erfüllt ist.
Beispiel: In ComboBox2 wird "5er-Serie" ausgewählt, dann soll nur das Textfeld sichtbar sein, dass Informationen darüber enthält.
hier mal mein Code:
Option Explicit
Private Sub ComboBox1_Initialize()
With ComboBox1
.Clear
.AddItem "High end"
.AddItem "Mid range"
.AddItem "Low end"
.ListIndex = 0
End With
End Sub
Private Sub ComboBox1_change()
Dim varHigh As Variant
Dim varMid As Variant
Dim varLow As Variant
varHigh = Array("7er-Serie", "8er-Serie", "9er-Serie")
varMid = Array("5er-Serie", " 7er-Serie")
varLow = Array("3er-Serie", "5er-Serie")
With ComboBox2
Select Case ComboBox1.Value
Case "High end"
.List = varHigh
Case "Mid range"
.List = varMid
Case "Low end"
.List = varLow
Case Else
.Clear
End Select
If .ListCount > 0 Then .ListIndex = 0
End With
End Sub
Private Sub TextBox1_Change()
If ComboBox2.Value = "3er-Serie" Then
TextBox1.Show vbModeless
Else
TextBox1.Hide
End If
End Sub
Private Sub TextBox2_Change()
If ComboBox2.Value = "5er-Serie" Then
TextBox2.Show vbModeless
Else
TextBox2.Hide
End If
End Sub
'und so weiter
wäre super wenn mir da jemand weiter hilft =)
lg
adrian