Array aus Textbox in Liste und Label
27.01.2005 23:04:57
Peter
wer kann bei dem Zugriff auf die Werte eines Arrays helfen?
Folgendes Problem:
Ich möchte aus einer Textdatei die Werte aus Spalte 3 direkt in eine Listbox
übernehmen. (besser gesagt-- nur die Werte aus Spalte 3 sollen angezeigt werden)
Nach der Auswahl in der Listbox sollen die Werte der entsprechenden Zeile in Label1 bis Label8 übernommen werden.
Ich hoffe, dass ich mich einigermaßen verständlich ausgedrückt habe.
Danke schon im voraus
Peter
Private Sub UserForm_Initialize()
Dim arr As Variant
ExePath = Application.Path & "\" & "Namen.txt"
Open ExePath For Input As #1
Do While Not EOF(1)
Input #1, strAct
arr = Split(Replace(strAct, " ", ""), ",")
'Hier sollen eigentlich nur die Werte aus Spalte 3 in der Listbox
'angezeigt werden
'iCol = UBound(arr)
LstArray.List = arr
LstArray.ListIndex = 0
Exit Do
Loop
Close #1
End Sub
Private Sub LstArray_Click()
Dim arr() As Variant
Dim n As Integer, i As Integer
i = -1
With LstArray
'alle Einträge der Listbox durchlaufen
For n = 0 To .ListCount - 1
'wenn Eintrag ausgewählt, dann
If .Selected(n) Then
i = i + 1
'Array neu dimensionieren
ReDim Preserve arr(i)
'Eintrag an Array übergeben
arr(i) = .List(n)
'Eintrag an Label übergeben
'Label1.Caption='Spalte1 & der ausgewählten Zeile in der Listbox
'Label2.Caption='Spalte2 & der ausgewählten Zeile in der Listbox
'Label3.Caption='Spalte3 & der ausgewählten Zeile in der Listbox
'Label4.Caption='Spalte4 & der ausgewählten Zeile in der Listbox
'Label5.Caption='Spalte5 & der ausgewählten Zeile in der Listbox
'Label6.Caption='Spalte6 & der ausgewählten Zeile in der Listbox
'Label7.Caption='Spalte7 & der ausgewählten Zeile in der Listbox
'Label8.Caption='Spalte8 & der ausgewählten Zeile in der Listbox
End If
Next
End With
End Sub