caption van label automatisch aanpassen werkt niet

[r3000]

In bijgaand bestand Bekijk bijlage Automatisch werkt niet.xls werkt het automatisch aanpassen van het label niet.

Terwijl in dit bestand Bekijk bijlage Handmatig werkt wel.xls het handmatig aanpassen van het label wel werkt.

Kan iemand aangeven wat ik fout doe en een goede code geven?

Bij voorbaat dank!

 

[edmoor]

Je ADJUSTCAP moet geen Function zijn maar een Sub.

 

[r3000]

Weet je het zeker?
Ik heb het nu aangepast maar het werkt nog niet...

 

[pasan]

werkt dit voor je?

Private Sub UserForm_Initialize()
ListBox1.List = Application.Transpose(Sheets("Sheet1").Range("E9:N9").Value)
ListBox2.List = Sheets("Sheet1").Range("C10:C20").Value
End Sub

Private Sub ListBox1_Change()
 ListBox2.ListIndex = 0
ADJCAPT

End Sub

 

[edmoor]

Het moet in ieder geval een Sub zijn. Als het dan nog niet werkt is er nog iets anders niet in orde.
Ik had er alleen even kort naar gekeken.