Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

alle Werte einer Listbox ausgeben

Forumthread: alle Werte einer Listbox ausgeben

alle Werte einer Listbox ausgeben
29.12.2004 13:01:20
Markus
Hallo zusammen,
gibt es eine Möglichkeit mir alle Werte einer Lisbox ausgeben zu lassen?
Meine Listbox fast maximal 50 Einträge...und die wollte ich per Command Button bei Bedarf in den Bereich B61:B110 übertragen.
Kann mir da jemand helfen?
Danke.
Markus
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: alle Werte einer Listbox ausgeben
29.12.2004 13:12:28
Hajo_Zi
Hallo Markus
loLetze =1 ' Startzeile
For LoI = 0 To ListBox1.ListCount - 1
' Beispiel nur Spalte 1
Cells(Loletzte + 1, 1) = ListBox1.List(LoI, 0)
Loletzte = Loletzte + 1
Next LoI
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
AW: alle Werte einer Listbox ausgeben
29.12.2004 13:16:38
Markus
Hallo Hajo,
besten Dank! funktioniert wunderbar. Die Anpassungen bei der Ausgabe krieg ich alleine hin.
Grüße
Markus
;
Anzeige
Anzeige

Infobox / Tutorial

Alle Werte einer Listbox ausgeben in Excel


Schritt-für-Schritt-Anleitung

Um alle Werte einer Listbox in Excel auszugeben, kannst Du die folgende VBA-Prozedur verwenden. Diese Methode ist besonders nützlich, wenn Deine Listbox maximal 50 Einträge hat und Du die Werte in einen bestimmten Bereich übertragen möchtest.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul ein: Klicke auf Einfügen > Modul.

  3. Kopiere den folgenden Code in das Modul:

    Sub ListboxWerteAusgeben()
       Dim LoLetzte As Integer
       Dim LoI As Integer
    
       LoLetzte = 60 ' Startzeile für die Ausgabe in B61
    
       For LoI = 0 To ListBox1.ListCount - 1
           Cells(LoLetzte + 1, 2).Value = ListBox1.List(LoI, 0)
           LoLetzte = LoLetzte + 1
       Next LoI
    End Sub
  4. Stelle sicher, dass Deine Listbox den Namen ListBox1 hat.

  5. Weise diesem Makro einen Command Button zu, um die Werte bei Bedarf auszugeben.

  6. Schließe den VBA-Editor und teste das Makro durch Klicken auf den Button.


Häufige Fehler und Lösungen

  • Fehler: Listbox nicht gefunden

    • Stelle sicher, dass die Listbox den korrekten Namen hat. Im obigen Beispiel ist es ListBox1. Du kannst den Namen in den Eigenschaften der Listbox überprüfen.
  • Fehler: Werte werden nicht korrekt übertragen

    • Überprüfe den Startwert von LoLetzte. Wenn Du die Werte in einen anderen Bereich übertragen möchtest, ändere den Wert entsprechend.

Alternative Methoden

Falls Du keine VBA verwenden möchtest, kannst Du auch die Funktion =INDEX() in Kombination mit =VERGLEICH() nutzen, um Werte aus einer Listbox in eine Tabelle zu übertragen, obwohl dies weniger flexibel ist.


Praktische Beispiele

Angenommen, Du hast eine Listbox mit den Werten "Apfel", "Banane", "Kirsche". Wenn Du den oben genannten VBA-Code ausführst, werden diese Werte in die Zellen B61, B62 und B63 übertragen.


Tipps für Profis

  • Nutze Option Explicit am Anfang Deines Moduls, um sicherzustellen, dass alle Variablen deklariert sind. Dies hilft, Fehler im Code zu vermeiden.
  • Experimentiere mit der Formatierung der Zellen, in die Du die Werte überträgst, um sie optisch ansprechender zu gestalten.

FAQ: Häufige Fragen

1. Wie kann ich die Listbox in Excel erstellen? Du kannst die Listbox über die Entwicklertools hinzufügen. Aktiviere die Entwicklertools in den Excel-Optionen und wähle dann unter "Einfügen" die Listbox aus.

2. Kann ich die Werte auch in eine andere Excel-Version übertragen? Ja, der VBA-Code funktioniert in den meisten Versionen von Excel, die VBA unterstützen, einschließlich Excel 2003, 2010 und späteren Versionen. Achte darauf, die spezifischen Eigenschaften Deiner Listbox zu überprüfen.

Beliebteste Forumthreads (12 Monate)

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