filter test

[Warme bakkertje]

Je zei eerder dat je het getest had in XL2000 en geen problemen, nu krijg je allerlei foutmeldingen ????

Private Sub UserForm_Initialize()
 Dim sq As Variant, cl as Variant, c01 as String

On Error Resume Next
    With Sheets("data")
        sq = .Range("B2:B" & .Cells(Rows.Count, 2).End(xlUp).Row)
        For Each cl In sq
            If InStr(c01, cl) = 0 Then c01 = c01 & "|" & cl
        Next
        Me.cbosectiezoek.List = Application.Transpose(Split(mid(c01, 2), "|"))
    End With
End Sub

Dit zou moeten volstaan.

 

[pasan]

Had het thuis getest op andere pc waar ik office 2000 op heb staan maar met Acces , de pc waar dit excel bestand voor bedoeld is staat geen Acces op helaas heb ik daar geen rekening mee gehouden dit was de eerste keer dat ik een datepicker gebruikte mijn excuses voor m'n onoplettendheid

 

[pasan]

vandaag weer getest en wat blijkt..........................
geen licentie voor de imagebox
ik stop dit progje maar ff in de koelkast

Warme bakkertje heel erg bedankt voor je tijd die je er in hebt gestoken
ik heb er in iedergeval van geleerd