UserForm ListBox

Question

Hallo Excelfreunde,
ist es möglich zwei verschiedene Spalten (E,M) in einer ListBox in eine Spalte einzulesen?

Gruß
fedjo

Private Sub ComboBox1_Click()
Dim intI As Integer
Dim Arr(100, 3) As Variant, intAnz As Integer 'Spalten
ListBox1.Clear
For intI = 2 To Sheets("Ein-Auslagern").Range("C65536").End(xlUp).Row
If Sheets("Ein-Auslagern").Cells(intI, 3).Value _
= ComboBox1.Value Then
Arr(intAnz, 0) = Sheets("Ein-Auslagern").Range("E" & intI).Value
Arr(intAnz, 0) = Sheets("Ein-Auslagern").Range("M" & intI).Value

Arr(intAnz, 1) = Sheets("Ein-Auslagern").Range("F" & intI).Value
Arr(intAnz, 2) = Sheets("Ein-Auslagern").Range("M" & intI).Value
Arr(intAnz, 3) = Sheets("Ein-Auslagern").Range("N" & intI).Value
intAnz = intAnz + 1
End If
Next
ListBox1.ColumnWidths = "2,5 cm;2,5 cm;2,5 cm;2,5 cm"
ListBox1.List = Arr
End Sub

Answer 1

ja und wo ist das Problem? Nur wenige sehen Deine Datei.
das
Arr(intAnz, 0) = Sheets("Ein-Auslagern").Range("E" & intI).Value
Arr(intAnz, 0) = Sheets("Ein-Auslagern").Range("M" & intI).Value
bedeutetb nur das Spalte M angezeigt wird nicht e
Arr(intAnz, 0) =Arr(intAnz, 0) & " " & Sheets("Ein-Auslagern").Range("M" & intI).Value

Gruß Hajo

Answer 2

bedeutetb nur das Spalte M angezeigt wird nicht e

Es sollte aber Spalte E und M angezeigt werden.

Gruß
fedjo

Answer 3

Hallo Fedjo,

mir scheint Du hast meinen Vorschlag nicht umgesetzt.

Gruß Hajo

Answer 4

Hallo Hajo ,
ich hab deinen Vorschlag schon getestet.
Die Spalten sollten aber nicht in einer Zeile angezeigt werden, sondern in einer Spalte untereinnander.
Hab mich da etwas falsch ausgedrückt.

Gruß
fedjo

Answer 5

Hallo Fedo,

das sagt Dein Code nicht.
Arr(intAnz, 0) = Sheets("Ein-Auslagern").Range("E" & intI).Value
Arr(intAnz+1, 0) = Sheets("Ein-Auslagern").Range("M" & intI).Value

Arr(intAnz, 1) = Sheets("Ein-Auslagern").Range("F" & intI).Value
Arr(intAnz, 2) = Sheets("Ein-Auslagern").Range("M" & intI).Value
Arr(intAnz, 3) = Sheets("Ein-Auslagern").Range("N" & intI).Value
intAnz = intAnz + 2

Gruß Hajo

Answer 6

Hallo Hajo,
das funktioniert schon mal super, wie kann ich die Spalten F, N auch noch zusammen einlesen?

Gruß
fedjo



Arr(intAnz, 0) = Sheets("Ein-Auslagern").Range("E" & intI).Value
Arr(intAnz + 1, 0) = Sheets("Ein-Auslagern").Range("M" & intI).Value

Arr(intAnz, 1) = Sheets("Ein-Auslagern").Range("F" & intI).Value
Arr(intAnz, 3) = Sheets("Ein-Auslagern").Range("N" & intI).Value

Answer 7

Hallo Fedjo,

analog zum ersten Beitrag

Arr(intAnz, 1) = Sheets("Ein-Auslagern").Range("F" & intI).Value & " " & Sheets("Ein-Auslagern").Range("N" & intI).Value

Gruß Hajo

Answer 8

Hallo Hajo,
wie kann ich die Spalten F, N auch noch zusammen in einer Spalte untereinnander einlesen?

Hab mich wohl schon wieder falsch ausgedrückt.

Gruß
fedjo

Answer 9

Hallo Fedjo,

ich kann nur auf das Antworten was im Beitrag steht.
Arr(intAnz, 1) = Sheets("Ein-Auslagern").Range("F" & intI).Value & " " & Sheets("Ein-Auslagern").Range("N" & intI).Value
Arr(intAnz+1, 1) = Sheets("Ein-Auslagern").Range("F" & intI).Value & " " & Sheets("Ein-Auslagern").Range("N" & intI).Value

Gruß Hajo

Answer 10

Hallo Hajo,
danke für deine Hilfe.
Der Code fuktioniert jetzt super.

Gruß
fedjo