Einzelene Spalten in ListBox einlesen
18.10.2007 22:53:00
edie
habe folgenden VBA-Code aus den Archiv geladen.
In der ComboBox wird die Spalte A eingelesen. Die Werte
kommen mehrfach vor. Je nach Auswahl in der ComboBox wird
die ListBox gefüllt, aus der Spalte B. Sowet Okay.
Num möchte ich dass, eine mehrspaltige ListBox auch noch
die Spalte H einliest. Und zwar als Zeile. Wenn es nicht
möglich ist die Werte einzelnen Spalten B und H einlesen
dann die gange Spalte von Spalte B bis H einlesen.
Mit sTxt = Range(Cells(iRow, 2), Cells(iRow, 8)) funktioniert
es nicht.
Private Sub cboBeispiel_Change()
Dim col As New Collection
Dim iRow As Integer
Dim sTxt As String
lstBeispiel.Clear
iRow = WorksheetFunction.Match(cboBeispiel.Value, Columns(1), 0)
On Error Resume Next
Do While Cells(iRow, 1).Value = cboBeispiel.Value
sTxt = Cells(iRow, 2).Value
' sTxt = Range(Cells(iRow, 2), Cells(iRow, 8))
col.Add sTxt
iRow = iRow + 1
Loop
On Error GoTo 0
For iRow = 1 To col.Count
lstBeispiel.AddItem col(iRow)
Next iRow
lstBeispiel.ListIndex = 0
End Sub
Hier das Beispiel: https://www.herber.de/bbs/user/46894.xls
Für die Hilfe bin sehr dankbar.
Grüße
Anzeige