foutmelding 381 tijdens uitvoering

Status
Niet open voor verdere reacties.
pasan

pasan

Terugkerende gebruiker
Lid geworden
6 nov 2010
Berichten
1.110
ik krijg de volgende melding als ik in mijn excel bestand in een userform een Listbox1 wil openen.

"Kan de eigenschap List niet instellen. Ongeldige index voor eigenschappenmatrix"
Code: 
Private Sub Label3_Click()
ListBox1.Visible = True
ListBox1.List = [index(Text(time(0,30*(row(1:48)-1),0),"hh:mm"),)]

Label6.Visible = True
CmdOpslaan.Visible = False
End Sub

iemand een idee? deze code werkt al jaren
het laatste wat ik had gedaan voor ik dit bestand opende is een ander Excel bestand van het internet openen.
Of mijn lijst met verwijzingen is aangepast weet ik eigenlijk niet, hier geen foutmelding op.
 
Misschien moet je het bestand dan ook even mee posten; als code jarenlang goed werkt, zal het niet aan de code liggen :)
 
Dat zou ik zo doen:

Code: 
   .List = [index(Text((row(1:48)-1)/48,"hh:mm"),)]

Naar niet in een _Click gebeurtenis maar in de Initialize-gebeurtenis van het Userform,
 
Laatst bewerkt:
Het werkt weer.........
Het volgende heb ik gedaan
Start een leeg nieuw Excel bestand naast het bestand waar het om gaat.
een Userform toegevoegd met ook een nieuwe Listbox met de code om de .List te vullen en voila in het bestaande bestand werkt ook alles weer. (tot nu toe)
Ook na het herstarten van alleen het hoofdbestand werkt de Listbox nog steeds.

Geen idee wat het probleem precies is geweest........
Maar uiteraard zeer benieuwd naar suggesties
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan