Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
916to920
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
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Einzelene Spalten in ListBox einlesen
18.10.2007 22:53:00
edie
Hallo Zusammen,
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

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

Betreff
Datum
Anwender
Anzeige
AW: Einzelene Spalten in ListBox einlesen
19.10.2007 06:04:00
ChrisL
Hallo edie

Private Sub cboBeispiel_Change()
Dim iRow As Integer
Dim i As Integer
lstBeispiel.Clear
lstBeispiel.ColumnCount = 2
iRow = WorksheetFunction.Match(cboBeispiel.Value, Columns(1), 0)
ReDim arr(WorksheetFunction.CountIf(Columns(1), cboBeispiel) - 1, 2)
i = 0
Do While Cells(iRow, 1).Value = cboBeispiel.Value
arr(i, 0) = Cells(iRow, 2)
arr(i, 1) = Cells(iRow, 8)
i = i + 1
iRow = iRow + 1
Loop
lstBeispiel.List = arr
lstBeispiel.ListIndex = 0
End Sub


cu
Chris

AW: Einzelene Spalten in ListBox einlesen
19.10.2007 07:20:00
edie
Hallo Chris,
toll, bin immer wieder überascht, es funktioniert.
Vielen Dank.
Grüße
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige