Listbox Array jede menge probleme
12.08.2004 14:17:43
Tobias
unten stehen sourcecode habe ich mir aus verschiedenen vorgaben zusammengestrickt und versuche ihn vollends zu verstehen. Jetzt ist zwar fein das die daten schön struktuiert in der listbox geschrieben werden. Aber jetzt gehen verschiedene andere sachen nicht mehr die ich machen wollte.
zum beispiel wenn ich ein element aus der listbox selectiere dann gibt er mir willkürliche positionen wieder, aber nicht die die ich abgeklickt habe. Kann sein das ich auch dafür den falschen befehl verwendet habe. Ich habe listbox1.selected verwendet.
wie sage ich ihm das er mir wenn ich z.b. zeile 5 angeklickt habe er mir aus dieser zeile eine bestimmte stellen wiedergeben soll?
wie kann ich ihm sagen wenn ich in einem textfeld einen wert eingegeben habe das er mir den an einer bestimmten stelle im array saven soll?
Das ist jetzt wieder ne menge auf einmal, aber vielleicht fühlten sich jetzzt ganz viele herausgefordert. Ich für meine Person bin im mom sehr überfordert. Ich habe mir jetzt erst mal 2 Bücher gegriffen und bin dabei stückchenweise dabei meine probleme zu lösen.
Bin für jede Hilfe dankbar.
Greetz
Tobias
'###############################################################################
'Form Initialisierung
'###############################################################################
Private Sub UserForm_Initialize()
Dim iZeile As Long
Dim WS1 As Worksheet
Dim Arr() As Variant
Dim iArr As Long
Set WS1 = Worksheets("bibo")
iArr = 0
With WS1
For iZeile = 2 To .Range("A65536").End(xlUp).Row
ListBox1.ColumnWidths = "1,5cm;1cm;1cm;1cm;1cm"
iArr = iArr + 1
ReDim Preserve Arr(1 To 5, 1 To iArr) As Variant
Arr(1, iArr) = .Cells(iZeile, 1)
Arr(2, iArr) = .Cells(iZeile, 2)
Arr(3, iArr) = .Cells(iZeile, 3)
Arr(4, iArr) = .Cells(iZeile, 4)
Arr(5, iArr) = .Cells(iZeile, 5)
Next iZeile
End With
With ListBox1
.ColumnCount = 5
.List = Application.WorksheetFunction.Transpose(Arr)
End With
End Sub