Mehrspaltige ListBox
16.01.2007 18:06:58
Xelleron
vor einiger Zeit habe ich hier einen Code bekommen, mit dem Daten lückenlos zweispaltig in eine ListBox eingelesen werden.
Private Sub UserForm_Initialize()
Dim i As Integer
Dim LZ As Integer
Dim Liste() As String
Dim Zähler As Integer
ReDim Liste(3, 2700)
Zähler = 0
LZ = Cells(65536, 1).End(xlUp).Row
For i = 1 To LZ
If Cells(i, 3).Value = "1" Then
Liste(0, Zähler) = Cells(i, 1).Value
Liste(1, Zähler) = Cells(i, 2).Value
Zähler = Zähler + 1
End If
Next i
ReDim Preserve Liste(3, Zähler)
ListBox1.Column() = Liste()
End Sub
Jetzt würde ich gerne per klick oder Doppelklick den zeiten Wert einer Spalte in der ListBox in eine TextBox schreiben lassen. Habe schon rumprobiert, aber irgendwie bekomme ich das nicht gebacken.
Kann da jmd helfen?
Gruß
Xelleron(Dennis)
Anzeige