• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Ongeldige index voor eigenschappenmatrix

  • Onderwerp starter Onderwerp starter HWV
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
HWV

HWV

Terugkerende gebruiker
Lid geworden
19 feb 2009
Berichten
1.213
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?

Code: 
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
 
Misschien werkt het als je de 'bron' eerst activeert?

Code: 
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
 
Beste RoCompy87 ,

één regeltje maakt het verschil.:confused:

bedankt:thumb:

Groet HWV
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan