Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
836to840
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mehrspaltige ListBox

Mehrspaltige ListBox
16.01.2007 17:06:58
Xelleron
Hallo zusammen,
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)

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrspaltige ListBox
16.01.2007 17:13:51
K.Rola
Hallo,

Private Sub UserForm_Activate()
ListBox1.BoundColumn = 2
End Sub


Private Sub ListBox1_Click()
MsgBox ListBox1
End Sub

Gruß K.Rola
Super, danke Dir K.Rola
16.01.2007 17:29:01
Xelleron
Den Ansatz BoundColumn hatte ich in meinem Versuch auch schon drin, aber nicht in der Form.
Gruß Xelleron
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige