Ein Datenfeld in einer ListBox ausgebenen
13.11.2005 19:32:38
Serge
'******************************
'
Public arrSort() As String
Public i As Long
Public lngZeile As Long 'obere Grenze des Datenfeldes
Sub Obergrenze()
lngZeile = 180 'Der Veriable lngZeile wurde der Wert von 180 zugewiesen
End Sub
Private Sub Array_Fuellen2()
Dim zeile As Long 'Index variable
ReDim arrSort(5 To lngZeile)
zeile = 5 '
For i = 5 To lngZeile
arrSort(i) = ThisWorkbook.Sheets(1).Cells(zeile, 3).Text
zeile = zeile + 1
Next
MsgBox arrSort(46)' Kontrolle
End Sub
So sieht mein Array aus...
Jatzt will ich mein Array nach einer ListBox übergeben
Array ist als Public deklariert !!!
Wie geht das? Etwa so?
Public Sub ListBox_auffuellen()
For i=0 to lngzeile
arrsort(i)=frm1.Listbox.Value
next
End Sub
Anzeige