AW: Frage zu ListBox
14.05.2015 11:44:12
Frank
Hallo Gerd!
War sicherlich meine Schuld, ich habe es nicht richtig erklärt mein Problem!
Die ListBox füllt sich auf Klick eines Buttons:
Private Sub CommandButton28_Click()
Sheets("Daten").Activate
With frmDaten
.ListBox1.Clear
For lng = 3 To Sheets("Daten").UsedRange.Rows.Count + 1
If Cells(lng, 1).Value "" Then
.ListBox1.AddItem Cells(lng, 1).Text
.ListBox1.Column(1, i) = Cells(lng, 2).Text
.ListBox1.Column(2, i) = Cells(lng, 3).Text
.ListBox1.Column(3, i) = Cells(lng, 4).Text
.ListBox1.Column(4, i) = Cells(lng, 5).Text
.ListBox1.Column(5, i) = Cells(lng, 6).Text
.ListBox1.Column(6, i) = Cells(lng, 7).Text
.ListBox1.Column(7, i) = Cells(lng, 8).Text
.ListBox1.Column(8, i) = Cells(lng, 9).Text
.ListBox1.Column(9, i) = lng
i = i + 1
End If
Next lng
End With
Für die beiden Zeilen (fett geschrieben) bräuchte ich die Möglichkeit, dass sich die _
vorhandenen Werte untereinander in der ListBox wiederspiegeln! Wie stelle ich das an?
Danke und Gruß Frank H.
End Sub