Opgelost Zoek macro werkt niet lekker

[Atwist]

Hallo,
Mijn zoek macro werkt niet lekker, kan wel op Artiest zoeken maar niet op Titel of Uitgave jaar.
Deze macro heb ik eens gekregen hier op het forum en heeft altijd gewerkt.
Kan iemand misschien kijken waarom het niet wil.

Private Sub ListFill2(tb, col)
    Dim endarr()
    If Me("TextBox" & tb).Text = vbNullString Then ListBox1.Clear: Exit Sub
    ListEndRow = 1
    With Sheets("Data")
        With .ListObjects(1).DataBodyRange
            sn = .Value
            lrows = .Rows.Count
        End With
        ReDim endarr(1 To lrows, 1 To 8)
        For i = 1 To UBound(sn)
            If Left(UCase(sn(i, col)), Len(Me("TextBox" & tb).Text)) = UCase(Me("TextBox" & tb).Text) Then
                For J = 1 To 8
                    endarr(ListEndRow, J) = sn(i, J)
                Next
                ListEndRow = ListEndRow + 1
            End If
        Next
    End With
    ListBox1.List = endarr
End Sub

Ik snap er geen hout meer van.

 

[popipipo]

Private Sub TextBox1_Change()
    ListFill2 1, 1
End Sub
Private Sub TextBox2_Change()
    ListFill2 2, 2
End Sub
Private Sub TextBox3_Change()
    ListFill2 3, 3
End Sub

Maak er eens dit van

 

[djutoch]

Of zo?

 

[snb]

iets andere insteek:

 

[Atwist]

popipipo & djutoch dank voor jullie Ideen.​

Ik ga voor de oplossing van snb​

deze werk op zich goed, maar wil graag de noteeringen vanaf 1999 laten zien nu heb ik geprobeerd om onderstaand te wijzigen maar dat wil niet.​

Private Sub Listbox1_dblClick(ByVal Cancel As MSForms.ReturnBoolean)
    With ListBox1
        If .ListIndex > -1 Then
          For jj = 3 To 8
             Me("Label" & jj) = .Column(jj)
          Next
        End If
    End With
End Sub

om de 8 in 29 te wijzigen​

 

[Atwist]

Dat van labels en colums is opgelost

 

[Atwist]

Krijg nu alleen nog een 318 error "kan eigenschap list niet instellen"

 

[Atwist]

Krijg nu alleen nog een 318 error "kan eigenschap list niet instellen"

Deze error is ook opgelost.

Nu heb ik nog 1 probleem de noteringen zijn een jaar verschoven.

 

[Atwist]

Ook deze is weer opgelost

 

[snb]

Ter inspiratie

 

[Atwist]

Dank je wel, dit begin ik te begrijpen.
Het enigste wat mij nog verbaast, is dat je hele andere kolommen gebruikt CV enz.
Waarom deze ????????

 

[snb]

Opdat jij dan nog een aantal jaren toekunt met dit bestand: elk jaar komt er wel een jaarkolom bij. Dat interfereert dan niet met de gebieden die de macro nodig heeft.

 

[Atwist]

Okay duidelijk

Wens je alvast fijne feestdagen.

 

[snb]

Je kunt er natuurlijk ook een verborgen tweede werkblad voor gebruiken.

 

[snb]

Nog wat ingeregeld.

 

[popipipo]

Als je nu alle kleuren er uithaalt en dit overlaat aan de tabelopties ziet het er ook nog mooier uit.

 

[Atwist]

Zover was ik nog niet, maar dat is inmiddels ook klaar.