Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten in Listbox anzeigen

Forumthread: Spalten in Listbox anzeigen

Spalten in Listbox anzeigen
21.11.2007 20:54:00
Larissa
Hallo,
ich möchte in einer Listbox die Daten aus 7 Spalten anzeigen. Dabei sollten die Daten pro Spalte untereinander stehen. Das funktioniert mit meinem Makro leider nicht. Weiß jemand, wie das funktionieren könnte? Hier ist mein Makro:

Private Sub UserForm_Activate()
Dim letztezeile  As Long
Dim I As Long
Dim Listentext As String
With Worksheets("Artikel")
Application.ScreenUpdating = False
letztezeile = .Cells(Rows.Count, 1).End(xlUp).Row '
For I = 2 To letztezeile
If .Cells(I, 1) = "" Then Exit For
Listentext = .Cells(I, 1) & "   " & .Cells(I, 2) & "   " & .Cells(I, 3) & "   " &
.Cells(I, 4) & "   " & .Cells(I, 5) & "   " & .Cells(I, 6) & "   " & .Cells(I, 7)
UserForm1.ListBox1.AddItem Listentext
Next I
End With
Application.ScreenUpdating = True
End Sub


Danke für Eure Hilfe,
Larissa

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten in Listbox anzeigen
21.11.2007 21:14:43
Larissa
Hallo,
Sorry, ich habe ein schönes Makro hier im Archiv gefunden, welches mir weiterhilft.
Dieser Beitrag ist also geschlossen. Vielen Dank,
Larissa

AW: Spalten in Listbox anzeigen
21.11.2007 21:22:00
Peter
Hallo Larissa,
das sollte z. B. so gehen:


Private Sub UserForm_Activate()
Dim lLetzte  As Long
Dim lZeile   As Long
Dim lLibox   As Long
   Application.ScreenUpdating = False
   With Me.ListBox1
      .ColumnCount = 7
      .Font.Size = 10
   End With
   With Worksheets("Artikel")
      lLetzte = .Cells(Rows.Count, 1).End(xlUp).Row '
      For lZeile = 2 To lLetzte
         If .Cells(lZeile, 1) = "" Then Exit For
         ListBox1.AddItem
         ListBox1.List(lLibox, 0) = .Cells(lZeile, 1).Value
         ListBox1.List(lLibox, 1) = .Cells(lZeile, 2).Value
         ListBox1.List(lLibox, 2) = .Cells(lZeile, 3).Value
         ListBox1.List(lLibox, 3) = .Cells(lZeile, 4).Value
         ListBox1.List(lLibox, 4) = .Cells(lZeile, 5).Value
         ListBox1.List(lLibox, 5) = .Cells(lZeile, 6).Value
         ListBox1.List(lLibox, 6) = .Cells(lZeile, 7).Value
         lLibox = lLibox + 1
      Next lZeile
   End With
   Application.ScreenUpdating = True
End Sub 


Gruß Peter
Anzeige
AW: Spalten in Listbox anzeigen
21.11.2007 22:42:15
Larissa
Hallo Peter,
Wau, das sieht viel besser aus als das, was ich gefunden hatte. Vielen DANK!!!
Kann man da evtl. die erst Zeile auch als Überschrift einbauen?
Das wäre ja richtig perfekt ;-)
Lieben Gruß,
Larissa

AW: Spalten in Listbox anzeigen
22.11.2007 10:19:20
Rudi
Hallo,

Kann man da evtl. die erst Zeile auch als Überschrift einbauen?


dann musst du die LB füllen, indem du ihr die RowSource-Eigenschaft zuweist.


Private Sub UserForm_Activate()
With ListBox1
.ColumnHeads = True
.ColumnCount = 7
.Font.Size = 10
.RowSource = "Artikel!A2:G" & Sheets("Artikel").Cells(65536, 1).End(xlUp).Row
End With
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Spalten in Listbox anzeigen
22.11.2007 10:21:00
Kay
Hallo Larissa,
da muss die Eigenschaft von der ListBox, ColumnHeads auf True gesetzt werden und die Daten mit RowSource eingefügt werden, dann geht das so:

Private Sub UserForm_Activate()
Dim lLetzte  As Long
Application.ScreenUpdating = False
With Worksheets("Artikel")
lLetzte = .Cells(Rows.Count, 1).End(xlUp).Row '
With Me.ListBox1
.ColumnCount = 7
.ColumnHeads = True
.Font.Size = 10
.RowSource = "A2:G" & lLetzte
End With
End With
Application.ScreenUpdating = True
End Sub


Davon ausgehend das die Überschrift in der 1. Zeile steht.
MfG
Kay

Anzeige
;

Forumthreads zu verwandten Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
Suchen, Sverweis Vergleichen über einen Bereich
KLE

Hallo zusammen,
..habe mal wieder eine Blockade im Hirn und suche hier Unterstützung, Anregungen und/oder Ideen...
Folgende Herausforderung (Musterdatei liegt hier bei):
Ich habe eine Adressen-Liste und muss es aus statistischen Gründen in Gruppen zusammenfassen. Soll heißen, alle "...
18.08.2008 08:39:00
Thread-ID: 1002501
5 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Anzeige
Makro bei Wertänderung in Bereich auslösen
Ulrich

Hallo zusammen,
kann man ein Makro starten, wenn sich in einem definierten Tabellenbereich ein Wert ändert? Wie geht das?
Danke im Voraus und Grüße,
Ulrich
19.09.2008 12:37:58
Thread-ID: 1010993
5 Beiträge
Anzeige
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
UDF - pos. oder neg. Wert in ausgeblendet. Bereich
Peter

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
26.09.2008 21:20:00
Thread-ID: 1012746
4 Beiträge
Vergleichen mit Funktion WENN
Uwe

Hallo liebe Forummitglieder,
ich habe ein Problem mit vergleichen von Zahlen.
Ich habe schon selbst probiert, aber das haut hinten und vorne nicht hin.
=WENN(ODER(B10=1;"100")WENN(B10=2;"200")WENN(B10=3;"300")WENN(B10=4;"400"))
Ich möchte wenn in B10 1 steht 100, bei 2 200, bei...
01.10.2008 08:25:00
Thread-ID: 1013514
9 Beiträge
Wert der letzten befüllten Zelle in Bereich
Bibo

Hallo EXCEL-Freunde,
ich habe bei excelformeln.de bei Beate Schmitz und Aladin Akyurek abgekupfert und ermittle mit der genauso kurzen wie eleganten Formel =VERWEIS(9^99;A1:F1) oder =VERWEIS(9^99;C1:C10) die letzten Zahlen in den angegebenen Bereichen.
Das klappt auch wunderbar, soweit...
12.10.2008 15:32:39
Thread-ID: 1015865
5 Beiträge
Such in Spalte Ergebnis in listbox
Markus

Hallo zusammen,
hab wieder mal ein Problem.
Hab ne Userform mit mehreren Textboxen und einer Listbox
In Textbox1 steht mein Suchtext das makro sucht nun im angegebenen Arbeitsblatt nach dem Text und
schreibt mir alle Daten aus der Gefundenen Zeile in Textboxen.
Hab nun fest...
14.10.2008 11:24:35
Thread-ID: 1016271
3 Beiträge
Anzeige
Wert der letzten Zeile in Bereich SVerweis
Elmar

Hallo,
vielleicht kann mir jemand helfen, wie ich in VBA dieser Formel ==ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Haupttabelle!R1C1:R65000C7,2,FALSE)"== beibringe, die 65000 durch die letzte belegte Zeile in einer Tabelle zu ersetzen. Die Abfrage mache ich mit ***iRow = Cells(Rows.Count, 3...
28.10.2008 20:45:00
Thread-ID: 1020084
5 Beiträge
Liste mit Wiederholungen in Spalte D reduzieren
Bernd

hallo Freaks,
ich habe eine ewig lange Tabelle, in der neben vielen anderen Informationen in der Spalte D der Name der bearbeitenden Person steht. Und das evt. 100 x, weil diese Person halt für 100 verschiedene Vorgänge zuständig ist. Und danach kommt die zweite Person, wieder mit x Einträg...
29.10.2008 12:50:28
Thread-ID: 1020239
5 Beiträge
Wert in Zellbereich prüfen
Florian

Hallo,
ich habe folgende Anforderung im Excel:
Ich bearbeite ein Testprotokoll, das vereinfacht wie folgt aufgebaut ist:
In den Zeilen stehen div. Punkte, die generellzu überprüfen sind.
In den Spalten stehen die zu prüfenden Verfahren; dies können je Testprotkoll bis zu 100 ve...
11.11.2008 16:57:00
Thread-ID: 1023615
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Spalten in einer Listbox in Excel anzeigen

Schritt-für-Schritt-Anleitung

Folge diesen Schritten, um Daten aus mehreren Spalten in einer Listbox in Excel anzuzeigen:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Füge ein UserForm hinzu: Klicke mit der rechten Maustaste im Projekt-Explorer auf dein Projekt und wähle Einfügen > UserForm.

  3. Füge eine Listbox hinzu: Ziehe eine Listbox aus der Toolbox auf dein UserForm.

  4. Füge den folgenden Code in das UserForm ein:

    Private Sub UserForm_Activate()
   Dim lLetzte As Long
   Application.ScreenUpdating = False
   With Worksheets("Artikel")
       lLetzte = .Cells(Rows.Count, 1).End(xlUp).Row
       With Me.ListBox1
           .ColumnCount = 7
           .ColumnHeads = True
           .Font.Size = 10
           .RowSource = "A2:G" & lLetzte
       End With
   End With
   Application.ScreenUpdating = True
End Sub

  5. Führe das UserForm aus: Drücke F5 oder klicke auf Run im VBA-Editor, um das UserForm zu testen.

Häufige Fehler und Lösungen

  1. Fehler: Listbox zeigt keine Daten an

    • Lösung: Stelle sicher, dass die RowSource korrekt gesetzt ist und dass die Daten in den angegebenen Zellen vorhanden sind.

  2. Fehler: Spaltenüberschriften werden nicht angezeigt

    • Lösung: Überprüfe, ob die ColumnHeads-Eigenschaft auf True gesetzt ist.

  3. Fehler: Listbox zeigt nur eine Spalte

    • Lösung: Überprüfe, ob die ColumnCount-Eigenschaft korrekt auf 7 gesetzt ist.

Alternative Methoden

Du kannst auch eine andere Methode verwenden, um Daten in eine Listbox zu laden:

  1. Manuelles Hinzufügen von Items: Wenn du die Daten manuell hinzufügen möchtest, kannst du die AddItem-Methode verwenden. Hier ein Beispiel:

    Private Sub UserForm_Activate()
   Dim letztezeile As Long
   Dim I As Long
   Dim Listentext As String
   With Worksheets("Artikel")
       letztezeile = .Cells(Rows.Count, 1).End(xlUp).Row
       For I = 2 To letztezeile
           If .Cells(I, 1) = "" Then Exit For
           Listentext = .Cells(I, 1) & "   " & .Cells(I, 2) & "   " & .Cells(I, 3) & "   " & _
                        .Cells(I, 4) & "   " & .Cells(I, 5) & "   " & .Cells(I, 6) & "   " & _
                        .Cells(I, 7)
           UserForm1.ListBox1.AddItem Listentext
       Next I
   End With
End Sub

Praktische Beispiele

Hier sind einige Beispiele, wie du die Listbox erweitern kannst:

  • Daten mit Überschriften: Wenn die erste Zeile deiner Tabelle Überschriften enthält, kannst du diese in der Listbox anzeigen, indem du die RowSource-Eigenschaft wie gezeigt verwendest.

  • Dynamische Datenquelle: Setze die RowSource-Eigenschaft dynamisch, um die Listbox automatisch zu aktualisieren, wenn sich die Anzahl der Daten ändert.

Tipps für Profis

  • Verwende Application.ScreenUpdating = False: Dies verbessert die Performance beim Laden großer Datenmengen in die Listbox.

  • Fehlerbehandlung einfügen: Überlege, Fehlerbehandlungsroutinen hinzuzufügen, um sicherzustellen, dass dein Code auch bei unerwarteten Eingaben stabil läuft.

  • Gestalte die Listbox ansprechend: Spiele mit den Eigenschaften wie Font.Size und ColumnWidths, um die Listbox optisch ansprechend zu gestalten.

FAQ: Häufige Fragen

1. Frage
Wie kann ich die Listbox automatisch aktualisieren, wenn sich die Daten ändern?
Antwort: Setze die RowSource-Eigenschaft des Listbox-Elements neu, wenn sich die Daten ändern, um die Listbox zu aktualisieren.

2. Frage
Kann ich mehr als 7 Spalten in einer Listbox anzeigen?
Antwort: Ja, du kannst die ColumnCount-Eigenschaft auf die gewünschte Anzahl von Spalten setzen, solange deine Daten entsprechend in den Zellen vorhanden sind.

Beliebteste Forumthreads (12 Monate)

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