Ongeldige index voor eigenschappenmatrix

[HWV]

Beste,

Ik werk in excel met formulieren, als ik deze lokaal op mijn PC draait zijn er geen problemen.
Nu draai ik het vanaf de terminalserver WindowsServer 2008R2 Enterprise en daar geef hij de volgende melding:

Fout 381 tijdens uitvoering:
Kan de eigenschap List niet isntellen.Ongeldige index voor eigenschappenmatrix

Is er een bepaalde verwijzing die hiervoor kan instellen?

Private Sub UserForm_Initialize()

    c4 = FindWindow("ThunderDFrame", Me.Caption)
    SetWindowLong c4, -16, 0
    DrawMenuBar c4
    
With Sheets("Artikelgroepen")
    .Columns("B").AdvancedFilter (2), , .[II1], True
    .Columns("II").Sort .[II2], Header:=xlGuess
     Me.Artikelgroepen_naam.List = .Range("II2:II" & Sheets("Artikelgroepen").Cells(Rows.Count, "II").End(xlUp).Row).Value
    .Columns("II").ClearContents
End With
    
With Sheets("Artikelgroepen")
    .Columns("A").AdvancedFilter (2), , .[II1], True
    .Columns("II").Sort .[II2], Header:=xlGuess
     Me.Txt_Artikelgroepen_code.List = .Range("II2:II" & Sheets("Artikelgroepen").Cells(Rows.Count, "II").End(xlUp).Row).Value
    .Columns("II").ClearContents
End With

   Artikelgroepen2.Artikelgroepen_naam.SetFocus

End Sub

Groet HWV

 

[RoCompy87]

Misschien werkt het als je de 'bron' eerst activeert?

Private Sub UserForm_Initialize()

    c4 = FindWindow("ThunderDFrame", Me.Caption)
    SetWindowLong c4, -16, 0
    DrawMenuBar c4
    
With Sheets("Artikelgroepen")
    [COLOR="red"].Activate[/COLOR]
    .Columns("B").AdvancedFilter (2), , .[II1], True
    .Columns("II").Sort .[II2], Header:=xlGuess
     Me.Artikelgroepen_naam.List = .Range("II2:II" & Sheets("Artikelgroepen").Cells(Rows.Count, "II").End(xlUp).Row).Value
    .Columns("II").ClearContents
End With
    
With Sheets("Artikelgroepen")
    .Columns("A").AdvancedFilter (2), , .[II1], True
    .Columns("II").Sort .[II2], Header:=xlGuess
     Me.Txt_Artikelgroepen_code.List = .Range("II2:II" & Sheets("Artikelgroepen").Cells(Rows.Count, "II").End(xlUp).Row).Value
    .Columns("II").ClearContents
End With

   Artikelgroepen2.Artikelgroepen_naam.SetFocus

End Sub

Mvg

 

[HWV]

Beste RoCompy87 ,

één regeltje maakt het verschil.

bedankt:thumb:

Groet HWV