Excel VBA Probleem

Question

Ik zit met een probleem waarbij Excel VBA met een active X element maar blijft crashen. Heb van alles geprobeerd maar inmiddels ben ik het spoor bijster. Het zit zo:

Ik heb een bestand met ongeveer 200 variabelen die ik door middel van een Active X Combobox wil kunnen opzoeken. Zodra ik de juiste variabel heb geselecteerd (door middel van typend zoeken) moet hij deze variabel in een bepaalde Cel zetten. Deze cel is gelinkt aan diverse Vlookup formules die diverse kenmerken van de opgezochte variabel weergeven. 

Echter; iedere keer als ik zoek crasht heel Excel. Het gericht zoeken van een variabel en deze overbrengen in een andere cel is echt van belang met 200 variabelen. Ik gebruik onderstaande code:

Private Sub ComboBox1_Change()

        Set xWs = Application.ActiveSheet

    On Error Resume Next

    Set xCombox = xWs.OLEObjects("ComboBox1")

    With xCombox

        .ListFillRange = "Opleiding"

        .LinkedCell = "$C$5:$J$5"

        .Visible = True

    End With

    If Target.Validation.Type = 3 Then

        Target.Validation.InCellDropdown = False

        Cancel = True

        xStr = Target.Validation.Formula1

        xStr = Right(xStr, Len(xStr) - 1)

        If xStr = "" Then Exit Sub

        With xCombox

            .Visible = True

            .Left = Target.Left

            .Top = Target.Top

            .Width = Target.Width + 5

            .Height = Target.Height + 5

            .ListFillRange = xStr

            If .ListFillRange = "Opleiding" Then

                xArr = Split(xStr, ",")

                Me.ComboBox1.List = xArr

            End If

            .LinkedCell = Target.Address

        End With

        xCombox.Activate

        Me.ComboBox1.DropDown

    End If

End Sub

Wie weet raad??

Answer 1

Beste JP,

Ik werk nooit met one drive dat is maar weer duidelijk. Lijkt iets mis te zijn gegaan; https://1drv.ms/x/s!Ahc6yx1UO2j6hRfONUR7AseIaNiH?e=YQ0RoY nu zou het wel moeten werken en getest :)

Answer 2

Waarom werk je met  xWs.OLEObjects("ComboBox1")? Gebruik gewoon de standaard combo van vba.

is dit op een formulier of rechtstreeks op een werkblad?

Zoals JP al schreef; bestand bevat geen code. opgeslagen als xlsx en niet als xlsm

Jan

Answer 3

Dag Stephen,

Je voorbeeld mist de code!

Answer 4

Beste JP,

Het duurde even door het weekend maar ter bijlage de link naar het voorbeeld bestand. 

Alvast heel erg bedankt!

https://1drv.ms/x/s!Ahc6yx1UO2j6hRZ2AVD5IZ2hQuPy?e=UxRPgq

Mvg,

Stephen

Answer 5

Dag Stephen,

Ik vermoed dat dit niet de volledige code is. Best kan je een fake werkboek aanmaken met code en dit op je onedrive plaatsen en de link hier delen.