Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1500to1504
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1500to1504
1500to1504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listbox mit vielen Spalten

Listbox mit vielen Spalten
12.07.2016 11:05:33
Alex
Hallo Community,
ich möchte eine Listbox mit vielen Spalten füllen und verwende dafür folgende Schleife. Leider finktioniert diese nur, wenn ich den letzten .list Befehl weglasse. Liegt es daran, dass der Listcount keine zweistelligen Zahlen kennt?
For i = 1 To LetzteZeile
LIB.AddItem
LIB.List(LIB.ListCount - 1, 0) = Worksheets("Daten").Cells(i, 25).Value
LIB.List(LIB.ListCount - 1, 1) = Worksheets("Daten").Cells(i, 1).Value
LIB.List(LIB.ListCount - 1, 2) = Worksheets("Daten").Cells(i, 2).Value
LIB.List(LIB.ListCount - 1, 3) = Worksheets("Daten").Cells(i, 3).Value
LIB.List(LIB.ListCount - 1, 4) = Worksheets("Daten").Cells(i, 4).Value
LIB.List(LIB.ListCount - 1, 5) = Worksheets("Daten").Cells(i, 6).Value
LIB.List(LIB.ListCount - 1, 6) = Worksheets("Daten").Cells(i, 24).Value
LIB.List(LIB.ListCount - 1, 7) = Worksheets("Daten").Cells(i, 11).Value
LIB.List(LIB.ListCount - 1, 8) = Worksheets("Daten").Cells(i, 13).Value
LIB.List(LIB.ListCount - 1, 9) = Worksheets("Daten").Cells(i, 14).Value
LIB.List(LIB.ListCount - 1, 10) = Worksheets("Daten").Cells(i, 26).Value
Next i
Könnt Ihr mir helfen!?
Vielen Dank und beste Grüße
Alex

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listbox mit vielen Spalten
12.07.2016 11:11:01
Hajo_Zi
Hallo Alex,
mit Additem max. 10 Spalten von Knud
mehr nur wenn Bereich zugewiesen wird.
Gruß Hajo

AW: Listbox mit vielen Spalten
12.07.2016 11:12:44
Alex
Achso. Das ist aber nicht schön.
Gibt es andere Möglicheiten die Listbox zu füllen. Einen Bereich kann ich nicht definieren, da die Spalten nicht alle zusammen liegen.

AW: Listbox mit vielen Spalten
12.07.2016 11:15:01
Hajo_Zi
keine Ahnung. Schreibe es in ein Array und weise dies zu.
Mal so live geschrieben. Ich bin nicht der Array Mensch.
Gruß Hajo

Anzeige
AW: Listbox mit vielen Spalten
12.07.2016 11:25:26
Nepumuk
Hallo,
teste mal:
Dim astrValues() As String

Redim astrValues(1 To LetzteZeile, 1 To 11)

For i = 1 To LetzteZeile
    
    astrValues(i, 1) = Worksheets("Daten").Cells(i, 25).Value
    astrValues(i, 2) = Worksheets("Daten").Cells(i, 1).Value
    astrValues(i, 3) = Worksheets("Daten").Cells(i, 2).Value
    astrValues(i, 4) = Worksheets("Daten").Cells(i, 3).Value
    astrValues(i, 5) = Worksheets("Daten").Cells(i, 4).Value
    astrValues(i, 6) = Worksheets("Daten").Cells(i, 6).Value
    astrValues(i, 7) = Worksheets("Daten").Cells(i, 24).Value
    astrValues(i, 8) = Worksheets("Daten").Cells(i, 11).Value
    astrValues(i, 9) = Worksheets("Daten").Cells(i, 13).Value
    astrValues(i, 10) = Worksheets("Daten").Cells(i, 14).Value
    astrValues(i, 11) = Worksheets("Daten").Cells(i, 26).Value
    
Next i
LIB.List = astrValues

Gruß
Nepumuk

Anzeige

Links zu Excel-Dialogen

ComboBox ListBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige