Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1024to1028
1024to1028
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listbox mehrere Spalten

Forumthread: Listbox mehrere Spalten

Listbox mehrere Spalten
25.11.2008 15:51:00
uli
Hallo Experten,
Habe eine Listbox (Listbox1) in einer Userform (Kl). Nun möchte ich gerne WErte aus einem Tabellenblatt in die Listbox einfügen. Diese sollen in 12 Spalten nebeneinander in die Listbox eingetragen werden.
Funktioniert mit meinem Code auch super, bis zur Listbox-Spalte 11 (KL.ListBox1.ListCount - 1, 10). Da unterbricht das Makro mit Fehlermeldung:
Laufzeitfehler 380 Eigenschaft List konnte nicht gesetzt werden. Ungültiger Eigenschaftswert.
Hier die Prozedur:

Sub liste1()
KL.ListBox1.MultiSelect = fmMultiSelectMulti
KL.ListBox1.ListStyle = fmListStyleOption
anzahl = Application.WorksheetFunction.CountA(Sheets(6).Columns(1))
For schleife = 2 To anzahl
schleife = 1
KL.ListBox1.ColumnCount = 12
KL.ListBox1.AddItem
KL.ListBox1.List(KL.ListBox1.ListCount - 1, 0) = Sheets(6).Cells(schleife, 3).Value
KL.ListBox1.List(KL.ListBox1.ListCount - 1, 1) = Sheets(6).Cells(schleife, 4).Value
KL.ListBox1.List(KL.ListBox1.ListCount - 1, 2) = Sheets(6).Cells(schleife, 8).Value
KL.ListBox1.List(KL.ListBox1.ListCount - 1, 3) = Sheets(6).Cells(schleife, 9).Value
KL.ListBox1.List(KL.ListBox1.ListCount - 1, 4) = Sheets(6).Cells(schleife, 11).Value
KL.ListBox1.List(KL.ListBox1.ListCount - 1, 5) = Sheets(6).Cells(schleife, 13).Value
KL.ListBox1.List(KL.ListBox1.ListCount - 1, 6) = Sheets(6).Cells(schleife, 12).Value
KL.ListBox1.List(KL.ListBox1.ListCount - 1, 7) = Sheets(6).Cells(schleife, 29).Value
KL.ListBox1.List(KL.ListBox1.ListCount - 1, 8) = Sheets(6).Cells(schleife, 30).Value
KL.ListBox1.List(KL.ListBox1.ListCount - 1, 9) = Sheets(6).Cells(schleife, 31).Value
KL.ListBox1.List(KL.ListBox1.ListCount - 1, 10) = Sheets(6).Cells(schleife, 32).Value
KL.ListBox1.List(KL.ListBox1.ListCount - 1, 11) = Sheets(6).Cells(schleife, 33).Value
Next schleife
End Sub


Habt ihr ne Idee, was ich falsch gemacht habe?
Gruß uli

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listbox mehrere Spalten
25.11.2008 15:53:00
Heinz
Hi,
mehr als zehn Spalten sind nur bei gebundener Listbox möglich(RowSource).
mfg Heinz
AW: Listbox mehrere Spalten
25.11.2008 16:29:37
uli
Hallo Heinz,
danke für deine Antwort. Was ist denn eine "gebundene" Listbox. Ist es möglich die Zelleninhalte der 12 Spalten auf diese Weise in die Listbox Zeile für Zeile zu bekommen?
Oder muss ich mich von Spalten trennen?
Gruß
Uli
Anzeige
AW: Listbox mehrere Spalten
25.11.2008 16:50:00
Heinz
Hi,
gebunden bedeutet, dass sie mittels RowSource mit Daten gefüttert wird.
mfg Heinz
;

Forumthreads zu verwandten Themen

VBA: Text in Spalten - mehrere Spalten | Herbers Excel-Forum
Jonathan
Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe...
In einer Tabelle stehen in einigen Spalten (jeweils ab Zeile 9 - Zeile 46) Zahlen.
Die Zellen sind als "Standart" definiert. Jedoch ist es so, dass einige Zahlen dennoch nicht als solche erkannt werden. Erst nach einem Doppelk...
05.02.2010 09:43:46
Thread-ID: 1136027
4 Beiträge
VBA - mehrere Spalten ansprechen
WalterK

Hallo,
bei folgendem Codeteil sollte ich wissen, was ich bei der Zeile Range("D" & i).Clear ändern muss, wenn ich die Clear-Anweisung für D:G benötige.
For i = 16 To LeZeiMinAB
If Range("A" & i) = "" Or Range("B" & i) = "" Then
Range("D" & i).Clear
End If...
15.04.2012 21:57:25
Thread-ID: 1259508
5 Beiträge
VBA Daten aus mehreren Spalten in eine Spalte
Valerie

Hallo,
ich habe folgendes Problem:
Ich habe im Worksheet "Aufgelöste Maßnahmen" Maßnahmen im Textformat gruppiert in verschiedenen Spalten stehen:
Gruppe 1 ------- Gruppe 2
Maßnahme x -- Maßnahme a
Maßnahme y -- Maßnahme b
Maßnahme z
nun möchte ich diese Maßnahmen au...
09.09.2012 16:37:23
Thread-ID: 1277903
7 Beiträge
VBA: Mehrere Spalten ausblenden
NillePet

Hallo Forumgemeinde,
ich bin nicht unbedingt ein VBA-Spezi und verzweifle gerade an folgendem Problem:
Die Daten die ich filtern möchte erstrecken sich über relativ viele Spalten. Gefiltert werden sollen die Spalten anhand der Werte in der Zeile 4, die dann aufgrund der Angabe in Zelle...
28.05.2013 17:15:02
Thread-ID: 1315291
6 Beiträge
VBA mehrere Spalten durchsuchen & Werte summieren
verslaan

Guten Morgen allerseits
Ich habe heute nochmals ein Problem, mit welchem ich nicht wirklich weiter komme.
Ich möchte mehrere Zeilen folgendermassen durchsuchen: Zeile 5 Spalte H -> wenn der String = Variable DANN zähle Wert in BH / BI / BJ pro Spalte _ zusammen und gib Total in Vari...
17.09.2013 08:55:32
Thread-ID: 1331093
7 Beiträge
ListBox mehrere Spalten gefiltert
Felix

Hallo zusammen, ich habe ein dezentes Problem mit der ListBox.
Aus anderen Beiträgen zur ListBox hab ich es nicht geschafft mir den Code zurechtzubiegen darum öffne ich hier einen neuen Beitrag.
Ich bin VBA-Neuling und schnipsel mir zur Zeit meine Codes aus dem Internet zusammen. Ich wo...
18.08.2015 10:40:11
Thread-ID: 1442860
3 Beiträge
Listbox auf mehrere Spalten erweitern
Herbert

Guten Tag,
und zwar habe ich das Problem, dass in meiner Listbox im Userform nur eine Spalte berücksichtigt wird. Ich möchte gerne, dass die Suchfunktion wie Aktuell erhalten bleibt. Jedoch sollen die ersten 5 Spalten in der Listbox aufgeführt sein und auch bei eingabe in die Textbox berück...
28.04.2017 14:04:14
Thread-ID: 1555332
10 Beiträge
VBA Sumif(s) mehrere Spalten(Schleifen)
Andreas

Hallo liebes Forum,
ich habe eine VBA-Herausforderung die ich im Moment nicht lösen kann und die mein Makro ziemlich langsam macht.
Durch den Durchlauf mit Haltpunkten habe ich herausgefunden, dass folgende Codes mein Makro sehr langsamm macht.
Jetzt kommt die Schleife um für jede Z...
23.03.2018 09:53:20
Thread-ID: 1615942
3 Beiträge
VBA update mehrerer Spalten SQL
Lx177

Hallo liebes Forum,
Ich hoffe mal wieder auf eure Hilfe.
Ich habe folgendes vor: Ich möchte aus einer Excel-Datei per VBA Änderungen auf einem SQL Server durchführen.
Dazu habe ich folgenden Code, der soweit auch funktioniert. Der Code ändert allerdings bisher _
nur eine Spal...
02.05.2018 13:18:55
Thread-ID: 1622486
2 Beiträge
VBA zusammenhängende Filter über mehrere Spalten
MArc

Hi alle,
wie schaffe ich es mittels VBA nach mehreren Spalten zu filtern ohne das die vorhergehende wieder vergessen wird? Ich möchte erst alles nach spalte D5 sortieren (Datum), in Spalte E5 soll dann alles nach Kunden sortiert werden und danach in spalte F5 nach deren Produkt. Aber irgend...
07.05.2018 15:38:55
Thread-ID: 1623186
2 Beiträge
VBA Userform-Suche auf mehrere Spalten ausweiten
Senad

Guten Tag liebe Community,
Ich habe eine Suchfunktion in meiner Userform per VBA integrieren können, welche folgenden Code beinhaltet (die Suche findet per Enter-Button statt):
Private Sub CommandButton12_Click() Dim StrSuch As String, firstadr As String, weiter%, sucher As Variant If K...
04.04.2019 11:22:56
Thread-ID: 1685094
5 Beiträge
von Listbox zur Listbox mit mehreren Spalten
Listbox

Hallo zusammen,
Ich habe zwei Listboxen. Per Doppelklick wird dann ein Eintrag von der einen Listbox in die anderen gegeben:
Private Sub ListBoxR1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) ListBoxR2.AddItem ListBoxR1.Value End Sub Das funktioniert auch sehr gut. Nur, eins bekomme...
10.04.2019 12:22:24
Thread-ID: 1686335
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Listbox mit mehreren Spalten in Excel VBA

Schritt-für-Schritt-Anleitung

Um eine Listbox in einer Userform mit mehreren Spalten in Excel zu erstellen, befolge diese Schritte:

  1. Userform erstellen: Öffne den VBA-Editor (Alt + F11) und füge eine Userform hinzu.
  2. Listbox hinzufügen: Ziehe eine Listbox (z.B. ListBox1) auf die Userform.
  3. Eigenschaften anpassen:
    • Setze ColumnCount auf 12, um 12 Spalten anzuzeigen.
    • Setze MultiSelect auf fmMultiSelectMulti, wenn du mehrere Auswahlmöglichkeiten zulassen möchtest.
  4. Daten einfügen: Verwende den folgenden VBA-Code, um Daten aus einem Tabellenblatt in die Listbox zu laden:
Sub liste1()
    KL.ListBox1.MultiSelect = fmMultiSelectMulti
    KL.ListBox1.ListStyle = fmListStyleOption
    anzahl = Application.WorksheetFunction.CountA(Sheets(6).Columns(1))

    For schleife = 2 To anzahl
        KL.ListBox1.AddItem
        For spalte = 0 To 11
            KL.ListBox1.List(KL.ListBox1.ListCount - 1, spalte) = Sheets(6).Cells(schleife, 3 + spalte * 2).Value
        Next spalte
    Next schleife
End Sub
  1. Fehlermeldung beachten: Wenn du mehr als 10 Spalten in einer nicht-gebundenen Listbox einfügen möchtest, kann dies zu einem Laufzeitfehler führen. Achte darauf, die Listbox als gebundene Listbox über RowSource zu nutzen, wenn du mehr als 10 Spalten benötigst.

Häufige Fehler und Lösungen

  • Laufzeitfehler 380: Dieser Fehler tritt auf, wenn du versuchst, mehr als 10 Spalten in einer nicht-gebundenen Listbox zu setzen. Um dies zu beheben, verwende RowSource, um die Listbox mit Daten aus einem Bereich zu füllen, anstatt die Werte einzeln hinzuzufügen.

  • Listbox zeigt keine Daten: Überprüfe, ob die RowSource korrekt angegeben ist und dass der Bereich die richtige Anzahl an Spalten und Zeilen hat.

Alternative Methoden

Wenn du eine Listbox mit mehr als 10 Spalten benötigst, kannst du die Methode des Datenbindens verwenden. Hier ist ein Beispiel:

Sub liste2()
    KL.ListBox1.RowSource = "Sheet6!C2:N" & Application.WorksheetFunction.CountA(Sheets(6).Columns(1))
End Sub

Mit dieser Methode wird der Bereich C2:N als Datenquelle für die Listbox verwendet, was dir ermöglicht, alle 12 Spalten anzuzeigen, ohne die Listbox manuell zu befüllen.

Praktische Beispiele

Hier sind einige Beispiele, wie du die Listbox in verschiedenen Szenarien nutzen kannst:

  1. Daten aus einer Datenbank: Wenn deine Daten in einer Access-Datenbank gespeichert sind, kannst du ADO verwenden, um die Daten in die Listbox zu laden.
  2. Dynamische Datenquelle: Setze die RowSource auf einen dynamischen Bereich, der sich je nach Eingabe ändert.
  3. Filterung: Füge eine Filterfunktion hinzu, um nur bestimmte Daten in der Listbox anzuzeigen.

Tipps für Profis

  • Nutze With...End With-Blöcke, um den Code leserlicher zu gestalten:
With KL.ListBox1
    .MultiSelect = fmMultiSelectMulti
    .ListStyle = fmListStyleOption
    .ColumnCount = 12
End With
  • Vermeide harte Kodierung von Spaltennummern, indem du Konstanten oder Variablen verwendest, um die Wartung deines Codes zu erleichtern.

FAQ: Häufige Fragen

1. Was ist eine gebundene Listbox?
Eine gebundene Listbox ist mit einem Datenbereich verknüpft, der über die RowSource-Eigenschaft definiert wird. So kannst du eine größere Anzahl an Spalten anzeigen.

2. Wie kann ich mehr als 12 Spalten anzeigen?
Wenn du mehr als 12 Spalten benötigst, solltest du die Daten in einer Excel-Tabelle organisieren und die Listbox mit RowSource füttern. Alternativ kannst du mehrere Listboxen verwenden, um die Daten anzuzeigen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige