Onderstaande userform werkt in windows niet in mac wat doe ik fout
Private Sub UserForm_Initialize()
keus1.List = Filter([transpose(if(countif(offset(database!A1,,,row(A1:A200)),database!A1:A200)=1,database!A1:A200,"~"))], "~", False)
keus2.Clear
keus3.Clear
End Sub
Private Sub keus1_Change()
keus2.ListIndex = -1
keus3.ListIndex = -1
For jj = 4 To 9
Me("tekst" & jj).Caption = ""
Next
[Offerte!A2] = keus1.Value
'[Offerte!G2] = [Offerte!D1]
If keus1.ListIndex > -1 Then keus2.List = Split(lijst(Filter([transpose(if(database!A1:A200=Offerte!A2,database!B1:B200,"#"))], "#", False)), ",")
End Sub
Private Sub keus2_Change()
[Offerte!A20] = keus2.Value
'[Offerte!H2] = [Offerte!E1]
If keus2.ListIndex > -1 Then keus3.List = Split(lijst(Filter([transpose(if((database!A1:A200=Offerte!A2)*(database!B1:B200=Offerte!A20),database!C1:C200,"#"))], "#", False)), ",")
End Sub
Function lijst(sn)
For j = 0 To UBound(sn)
If InStr(c01 & ",", "," & sn(j) & ",") = 0 Then c01 = c01 & "," & sn(j)
Next
lijst = Mid(c01, 2)
End Function
Private Sub keus3_Change()
[Offerte!C20] = keus3.Value
If keus3.ListIndex = -1 Then Exit Sub
sn = Sheets("database").Cells(1).CurrentRegion
c01 = keus1.Value & keus2.Value & keus3.Value
For j = 1 To UBound(sn)
If sn(j, 1) & sn(j, 2) & sn(j, 3) = c01 Then Exit For
Next
For jj = 4 To 9
Me("tekst" & jj).Caption = sn(j, jj)
[Offerte!B20] = sn(j, 4)
[Offerte!D20] = sn(j, 5)
[Offerte!E20] = sn(j, 9)
[Offerte!G5] = sn(j, 10)
Next
End Sub
Bookmarks