Combobox-Problem

Private Sub cbxVermoegenPerson1_AfterUpdate()
Dim obj As Object
If EbgVermoegen.cbxVermoegenPerson1 = "BV/EHB" Then
EbgVermoegen.frmVermoegenPerson2.Visible = True
EbgVermoegen.cbxVermoegenPerson2.AddItem "PTR"
EbgVermoegen.cbxVermoegenPerson2.AddItem "MUK"
For Each obj In EbgVermoegen.Controls
If Left(TypeName(obj), 5) = "FrameEHB" Then
obj.Visible = True
End If
Next obj
End If
If EbgVermoegen.cbxVermoegenPerson1 = "PTR" Then
EbgVermoegen.frmVermoegenPerson2.Visible = True
EbgVermoegen.cbxVermoegenPerson2.AddItem "BV/EHB"
EbgVermoegen.cbxVermoegenPerson2.AddItem "MUK"
For Each obj In EbgVermoegen.Controls
If Left(TypeName(obj), 5) = "FramePTR" Then
obj.Visible = True
End If
Next obj
End If
If EbgVermoegen.cbxVermoegenPerson1 = "MUK" Then
EbgVermoegen.frmVermoegenPerson2.Visible = True
EbgVermoegen.cbxVermoegenPerson2.AddItem "BV/EHB"
EbgVermoegen.cbxVermoegenPerson2.AddItem "PTR"
For Each obj In EbgVermoegen.Controls
If Left(TypeName(obj), 5) = "FrameMUK" Then
obj.Visible = True
End If
Next obj
End If
End Sub