Miért nem fordul le? With UserForm.NameSelectBox1 .Clear For I = 1 To 25 If Tomb(I) <> 0 Then .AddItem = Tomb(I) End If Next End With Fordítási üzenet : Compile error: Expected Function or variable

Ez a verzió működik

' With UserForm.NameSelectBox1

' .Clear

' .List = Tomb

' End With

Viszont a tömb hosszabb mint a benne lévő valós tartalom, amit nem szeretnék a listboxban megjeleníteni.

A tomb 25 elemre van definiálva de most jelenleg csak 22 eleme van a listának

A változól publikus modulban vannak. Az "I" byte, a "Tomb" Variant.

Lehet, hogy a Variant típusú Tomb elemből stringet kellene csinálni ?

És azt hogyan ?