Hallo,
ich habe in einem code die Speichervariable arrX() als puglic deklariert:
public arrx() as variant sub test () dim arrx() ........... userform.show end sub
Allerdings erhalte ich den Fehler sobald in der userform auf diesen Speicher zugegriffen wird:
for k=lbound(arrX()) to ubound(arrX())
..
Hat jemand einen Tipp? Danke und Gruß A.
Hallo Andreas,
du darfst in deinem Makro test das Feld nicht noch einmal dimensionieren:
Public arrx() As Variant Sub test() Dim i As Long ReDim arrx(5) For i = 1 To 5 arrx(i) = Cells(i, 1) Next i UserForm1.Show End Sub
Dann klappt auch der Zugriff von der Userform aus:
Private Sub UserForm_Initialize() For i = LBound(arrx) To UBound(arrx) ListBox1.AddItem arrx(i) Next i End Sub
Gruß
M.O.
58.4k Fragen
249k Antworten
7k Nutzer