comboboxen filteren keus 1, keus 2, keus 3

[Andre175]

Top, bedankt SNB.

Het is mij bekend dat ik 1 form kan gebruiken voor meerdere knoppen/tabbladen. Ik had dit zo gedaan om het 1 en ander uit te proberen met verschillende codes.
probeerde ze alle 4 werkend te krijgen, zodat ik wat heb voor in het archief.

Heb weer het 1 en ander geleerd, en denk dat er meer personen van dit hoofdstuk gebruik kunnen/zullen gaan maken.

Hoofdstuk is denk ik voor mij afgesloten, ga het vanavond even proberen in het bestand waar ik het in nodig heb.
Indien zich daar geen problemen in voordoen, zal ik deze vraag als opgelost markeren.



Iedereen bedankt voor hun inzet.
André

 

[Andre175]

En ik maar denken, waarom krijg ik combobox 2 niet gevuld.....

    sn = ActiveSheet.Cells(1).CurrentRegion
    y = Abs(sn(1, 1) = "ID")
    With CreateObject("scripting.dictionary")
        For j = 2 To UBound(sn)
            x0 = .Item(sn(j, 1 + y))
        Next
        
        CB1.List = .keys
    End With
        
'###############################
'## PAGE: Debiteuren          ##
'###############################

        TBD01.Value = WorksheetFunction.Max([IDdeb]) + 1
        With ListBDeb
            .ColumnHeads = False
            .List = [Tbl_debiteuren].Value
            .ColumnCount = [Tbl_debiteuren].CurrentRegion.Columns.Count
            .ColumnWidths = "20;70;70;30;70;70;70;0;0;0;0;0"
        End With
        
    sn[COLOR="#FF0000"]1[/COLOR] = Sheets("Debiteuren").Cells(1).CurrentRegion
    For j = 1 To 12 'UBound(sn[COLOR="#FF0000"]1[/COLOR], 2)
         Me("Lbd" & Format(j, "00")).Caption = sn[COLOR="#FF0000"]1[/COLOR](1, j)
    Next

tja..... 2x sn ipv sn en sn1 gaat m ook niet worden.....

vraagstuk nu echt opgelost, iedereen weer bedankt voor de medewerking.

goed weekend.