ComboBox Change
08.12.2006 09:33:32
Werner
mit dem Code unten lasse ich text und Combobox einblenden, klappt auch.
Nun möchte ich aber bei der Auswahl von "Rüsten" andere Text und Comboboxen einblenden, ist das möglich?
Private Sub ComboBox4_Change()
If ComboBox4.Value = "Produktion" Or ComboBox4.Value = "G4 Musterteile" Then
Label26.Visible = True
Label29.Visible = True
TextBox4.Visible = True
ComboBox6.Visible = True
Else
Label26.Visible = False
Label29.Visible = False
TextBox4.Visible = False
ComboBox6.Visible = False
End If
Dim F4 As Range
TIndex = Me.ComboBox4.ListIndex
Set F4 = Sheets("Hilfe1").Cells(TIndex + 1, 2)
Me.TextBox4 = F4
End Sub
Gruß Werner