Listbox füllen indem Spalten übersprungen werden

Question

Mahlzeit,

Ich habe eine Tabelle von A bis Z und möchte in einer Listbox die Spalten C, D und I anzeigen lassen.
Ist das möglich, wenn ja wie?

Danke

Answer 1

Dim Loletzte As Long
Dim LoI As Long
Loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
For LoI = 1 To Loletzte
ListBox1.AddItem Cells(LoI, 3)
ListBox1.List(LoI - 1, 1) = Cells(LoI, 4)
ListBox1.List(LoI - 1, 2) = Cells(LoI, 4)
Next iCounter

Gruß Hajo

Answer 2

Next LoI
am Ende

Gruß Hajo

Answer 3

Hallo Hajo,

leider klappt es bei mir nicht.:-(
ich hab das mal angepasst, da bei mir die zeile bei 16 anfängt.

Es wird nur die spalte C übertragen.

Dim Loletzte As Long
Dim LoI As Long
Loletzte = Range("C100").End(xlUp).Row
For LoI = 16 To Loletzte
Listbox1.AddItem Cells(LoI, 3)
Listbox1.List(LoI - 16, 1) = Cells(LoI, 4)
Listbox1.List(LoI - 16, 2) = Cells(LoI, 4)
Next LoI

Answer 4

das letzt Cells mus nicht 4 sondern 9 sein.
Ich sehe Deine datei nicht.
Ich baue keine Datei nach, die Zeit hat schon jemand investiert. Ein Link zur Datei wäre nicht schlecht.

Gruß Hajo

Answer 5

Hallo Hajo,

besten Dank hat funktioniert.