Listboxauswahl & Array
21.01.2005 14:37:17
Peter
wer kann helfen?
Ich habe eine einspaltige Listbox mit einem Array gefüllt.
Jetzt möchte ich erreichen, dass bei jeder Auswahl mittels „Click“, der Inhalt der Listbox
In Zeile 1 und Spalte x übernommen wird.
Danke Peter
z.B. Click1 =A1 mit. Auswahl aus Listbox gefüllt
Click2=B1 mit Auswahl aus Listbox gefüllt
Click3=C1 mit Auswahl aus Listbox gefüllt usw.
Private Sub LstArray_Click()
Worksheets(1).Cells(1, 1) = LstArray '#### ? ##### '.ListIndex .Text
End Sub
Private Sub UserForm_Initialize()
Dim strAct As String
Dim iCol As Long
Dim arr As Variant
Open "ZeilenImport.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strAct
arr = Split(Replace(strAct, " ", ""), ",")
iCol = UBound(arr)
LstArray.List = arr
LstArray.ListIndex = 0
Exit Do
Loop
Close #1
End Sub
Anzeige