Private Sub Userform_Initialize()
cmbrbt.AddItem "Bitte Hersteller wählen"
cmbrbt.AddItem "KUKA"
cmbrbt.AddItem "Fanuc"
cmbrbt.ListIndex = 0
End Sub
Private Sub cmbtyp_Change()
Select Case cmbrbt
Case KUKA
cmbtyp.RowSource ("b3:b34")
Case Fanuc
cmbtyp.RowSource ("b35:b61")
End Select
cmbtyp.LisIndex = 0
End Sub
Private Sub cmbEnde_Click()
Unload Me
End Sub