+ Reply to Thread
Results 1 to 3 of 3

wat is verschil useform werkt in windows niet in mac

  1. #1
    Registered User
    Join Date
    11-18-2015
    Location
    netherlands
    MS-Off Ver
    excel 2011 mac / excel 2007 windows
    Posts
    1

    wat is verschil useform werkt in windows niet in mac

    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
    Last edited by Gap.stalpers; 12-15-2015 at 05:41 AM.

  2. #2
    Forum Expert Keebellah's Avatar
    Join Date
    01-12-2014
    Location
    The Netherlands
    MS-Off Ver
    Office 2021 (Windows)
    Posts
    7,905

    Re: wat is verschil useform werkt in windows niet in mac

    VAB onder MAC werkt heel anders. Verwijzingen naar VBA en andere DLL in Windows versies gaan noet op voor MAC.
    Ik weet dat als je niet té ingewikkeld codeert het wel werkt maar dat moet je maar Googlen

    O ja,
    Zet je code altiojd tussen code markeerder

    Please Login or Register  to view this content.
    Je vraag kan worden geblokkeerd als je het niet doet
    ---
    Hans
    "IT" Always crosses your path!
    May the (vba) code be with you... if it isn't; start debugging!
    If you like my answer, Click the * below to say thank-you

  3. #3
    Forum Expert Keebellah's Avatar
    Join Date
    01-12-2014
    Location
    The Netherlands
    MS-Off Ver
    Office 2021 (Windows)
    Posts
    7,905

    Re: wat is verschil useform werkt in windows niet in mac

    Kan je ook aangeven welke foutmelding je krijgt?
    In Windows zet je meeestal referenties naar DLL bestanden voor VBA enz.
    DLL bestanden 'bestaan' niet in MAC, maar ik heb ook geen idee wat het alternatief is voor die referenties, je zal het daarin moeten zoeken.
    Ik heb het nog niet gelezen maar deze link heb ik zojuist mbv Google gevonden
    http://blog.parallels.com/2014/04/18...for-windows-2/
    Suuces

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. [SOLVED] Vraag: kopieren en plakken lukt niet
    By blake20 in forum Non English Excel
    Replies: 1
    Last Post: 08-25-2014, 08:44 AM
  2. Replies: 1
    Last Post: 12-09-2013, 04:16 PM
  3. VBA Useform
    By JOONA in forum Excel Programming / VBA / Macros
    Replies: 8
    Last Post: 12-05-2013, 05:43 AM
  4. Emailing from a useform
    By Bigsam in forum Excel Programming / VBA / Macros
    Replies: 2
    Last Post: 07-27-2012, 09:06 AM
  5. Replies: 0
    Last Post: 11-28-2009, 01:28 AM
  6. [SOLVED] niet zichtbaar van afbeelding e.d. helppppp
    By GM in forum Excel General
    Replies: 7
    Last Post: 07-26-2006, 03:10 PM
  7. [SOLVED] TextBox1_Exit niet uitvoeren!
    By BBert in forum Excel Programming / VBA / Macros
    Replies: 1
    Last Post: 07-21-2005, 05:05 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1