Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.05.2025 18:11:42
Spalte J und L Höchstbetrag ermitteln
20.05.2025 16:19:36
Wenn Fehler
20.05.2025 15:34:36
Excelnamen - Typen erkennen
20.05.2025 12:42:46
Zeilen löschen in Abhängigkeit
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
1056to1060
1056to1060
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

per VBA eine ListBox füllen

Forumthread: per VBA eine ListBox füllen

per VBA eine ListBox füllen
10.03.2009 08:50:59
Peter
Guten Morgen!
Dank der freundlichen Unterstützung von Tino konnte ich meine Datei bis hierher erstellen.
Ich habe folgendes Problem:
Wenn über die Userform Daten eingegeben werden, werden diese einmal in die Seite Gesamt geschrieben und dann noch in die Seite des ausgewählten Verein.
Ich möchte nun das die Einträge aus der Tabelle Gesamt auch in der ListBox in der Userform eingetragen werden ( nur Name und Vorname ). Schön wäre es, wenn alphabetisch sortiert.
Nach jeden neuen Eintrag oder Änderung oder Löschung soll eine Aktualisierung erfolgen.
https://www.herber.de/bbs/user/60150.xls
Danke für eure Bemühungen...
mfg
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Benutzerform-Verwaltung
Tags
#listbox #userform #vba
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: per VBA eine ListBox füllen
10.03.2009 09:09:56
Tino
Hallo,
das kannst Du so machen.
Ins UserForm_Initialize Ereignis der Userform
Dim sArray
With Sheets("Gesamt")
 sArray = .Range("B2", .Cells(.Rows.Count, 3).End(xlUp))
End With
sArray = QuickSort(sArray, Lbound(sArray), Ubound(sArray), 1)
Namenliste.ColumnCount = Ubound(sArray, 2)
Namenliste.List = sArray


In ein Modul.

Function QuickSort(ByVal sArray As Variant, MinElem As Long, MaxElem As Long, lngCol As Long)
Dim Mitte As Long
Dim vDummy As Variant
Dim i As Long, j As Long, A As Long
    If MinElem > MaxElem Then
     Exit Function
    End If
    Mitte = (MinElem + MaxElem) \ 2
    i = MinElem
    j = MaxElem
    Do

        Do While sArray(i, lngCol) < sArray(Mitte, lngCol)
            i = i + 1
        Loop

        Do While sArray(j, lngCol) > sArray(Mitte, lngCol)
            j = j - 1
        Loop
 
        If i <= j Then
          For A = 1 To Ubound(sArray, 2)
            vDummy = sArray(j, A)
            sArray(j, A) = sArray(i, A)
            sArray(i, A) = vDummy
          Next A
            i = i + 1
            j = j - 1
        End If
 
    Loop Until i > j
    QuickSort = sArray
    QuickSort sArray, MinElem, j, lngCol
    QuickSort sArray, i, MaxElem, lngCol
    
End Function


Gruß Tino

Anzeige
AW: per VBA eine ListBox füllen
10.03.2009 09:21:46
Peter
Hallo schön wieder von dir zu "hören"!
Ich bekomme es leider nicht hin. Eine Fehlermeldung jagd die andere.
An welcher Stelle muss der Code eingefügt werden und muss das Modul einen bestimmten Namen haben?
Danke für deine Geduld und Ausdauer...
mfg
AW: per VBA eine ListBox füllen
10.03.2009 09:30:43
Tino
Hallo,
ok. hier die Datei, bei kommt kein Fehler.
https://www.herber.de/bbs/user/60154.xls
Gruß Tino
Anzeige
Aktualisierung & Sortierung
10.03.2009 09:39:00
Peter
Danke für die Datei. Die Funktionalität ist die gleiche. Wenn Neu gedrückt wird, wird die ListBox nicht aktualisiert und die Sortierung funktioniert nicht richtig.
mfg
AW: Aktualisierung & Sortierung
10.03.2009 10:07:14
Tino
Hallo,
in der funktion war noch ein fehler.
Versuche es nochmal
https://www.herber.de/bbs/user/60156.xls
Gruß Tino
Anzeige
Super danke !
10.03.2009 10:15:05
Peter
An dieser Stelle noch einmal danke für deine Geduld.
mfg
AW: @Tino
10.03.2009 13:06:46
Peter
Hej Tino,
ich glaube QuickSort, wie du ihn hier verwendest, kann kein mehrdimensionales Array sortieren.
Sieh dir bitte einmal meine Test-Mappe an - der Meier steht an falscher Stelle.
https://www.herber.de/bbs/user/60165.xls
Gruß Peter
Anzeige
AW: jetzt gehts.
10.03.2009 14:42:00
Peter
Hej Tino,
das sieht gut aus.
Gruß Peter
Anzeige
Funktioniert mit Fehler
10.03.2009 09:33:12
Peter
Hallo ich noch einmal !
Habe wie beschrieben den Code eingefügt und ein Modul angelegt.
Die Einträge werden in die Liste übernommen beim start der Userform. Die Sortierung funktioniert leider nicht richtig. Wenn ein neuer angelegt wird und der Button Neu gedrückt wird, werden zwar die Daten in die Tabellen geschrieben aber nicht in die Listbox. Drücke ich den Button Neu moch einmal kommt die Fehlermeldung das alle Felder gefüllt werden müssen und dann wird die Liste in der Listbox aktualisiert aber auch ohne alphabetische Sortierung.
https://www.herber.de/bbs/user/60155.xls
Danke für deine Geduld...
Anzeige

Forumthreads zu verwandten Themen

VBA, ComboBox, Listbox, Drucken
Angela


Ich habe eine Listbox in der mehrere Einträge ausgewählt werden können.
Solbald der Anwender einen Eintrag auswählt, sollte eine Prozedur ausgeführt werden.
Zum einen wird automatisch über sverweis ein paar Zellen gefüllt, zum anderen sollte gleich ein DinA 4 Seite gedruckt werden....
28.11.2008 18:08:00
Thread-ID: 1028760
13 Beiträge
VBA, Listbox, automatische Erkennung der Auswahl
spezifischer

Hallo zusammen,
ich habe ein kleines Problem, welchse ich bislang nicht alleine lösen konnte (besser gesagt: ich steh wie wie der ochs' vor der Wand...). Ich befinde mich im Anfangsstatus einer Kontakt-Datei zur Verwaltung von Adressen und Treffen.
Problem: Ich habe ein Userform mit ei...
15.06.2009 13:52:57
Thread-ID: 1081571
7 Beiträge
VBA EXCEL Listbox Farben
stefan

Hallo,
ich möchte in einer Listbox Elemente eintragen, welche zeilenweise unterschiedliche Vorder- oder Hintergrundfarben haben. Wie kann man das machen!
Stefan
28.10.2009 13:00:21
Thread-ID: 1112776
3 Beiträge
Anzeige
VBA ListBox
Stefan

Guten Tag
Ich habe ein VBA Problem wo ich keine Lösung gefunden habe, obschon ich schon länger am suchen bin. Für eine Umfangreiche Tabelle setzte ich zur Monatsauswahl eine Gültigkeitsliste ein. Ich möchte nun mit dem Makro gerade den Monat auswählen, im sinne von Zeige den Juli an. Ich ha...
22.12.2010 18:16:49
Thread-ID: 1192557
2 Beiträge
Bildauswahl nach Listboxselection
Ludwig

Hallo Experten
Ich möchte in einer UF entsprechend einer Listboxauswahl das entsprechende Bild im Imagerahmen anzeigen! Die Bilder sind in einem Tabellenblat (z.B. "Pic1") abgelegt!
Wie müßte der entsprechende code aussehen?
Vielen Dank im voraus für die Hilfe!
MfG
Ludwig
05.07.2011 09:30:53
Thread-ID: 1220951
4 Beiträge
ListBox selection in TextBox eintragen
Seb

Hallo VBAler,
ich habe folgendes Problem:
Es wird eine ListBox mit einträgen aus einer AccessDB erstellt. Übersichtshalber werden die Pfade der in dieser Liste gespeicherten Hyperlinks abgeschnitten.
Jetzt möchte ich aber eine TextBox (oder evtl Textfeld!?) in die UF einfügen,
w...
14.06.2013 11:36:27
Thread-ID: 1317688
4 Beiträge
Userform listbox add und remove item prob
Günter

Hallo,
Ja, ich schon wieder ;)
Ich habe noch Probleme mit der von Franz erstellten Userform.
Eine Suchfunktion mit Anzeige in einer Listbox.
Tips durch google ergeben für mich keine Lösung, da ich irgendwie
bei diesen "Listeinträgen" noch garnicht durchsteige.
Folgendes:...
04.11.2014 19:09:47
Thread-ID: 1390481
5 Beiträge
VBA Auswahl Combobox in Listbox
Stefan

Hallo,
stehe vor folgendem Problem:
Ich möchte ein Eingabemaske für Angebote erstellen.
Im UserForm gibt es eine ComboBox, in die in Excel hinterlegte Werte geladen wird.
ID | OBJEKT
1 | Berlin
2 | Wiesbaden
3 | Hannover
Nun möchte ich, dass der Auswahl entsp...
24.03.2015 15:38:57
Thread-ID: 1416908
2 Beiträge
VBA Listbox kopieren und löschen ( Multiselect)
Tobias
Guten Tag,
ich bin blutiger Anfänger und habe ein kleines Problem. Ich habe zwei Listboxen und würde gerne mit einem Knopf die Namen die selektiert sind, in die zweite Liste "verschieben".
Ich habe schon soviele Foren durchsucht, und auch Lösungen gefunden, die weiß Gott warum nicht _
...
17.04.2015 14:42:05
Thread-ID: 1421497
4 Beiträge
VBA: Listbox Wert multiplizieren und ausgeben
Hans

Hallo,
Ich möchte gerne über eine Schaltfläche den Preis (in einer Listbox in Spalte 2) mit der Menge (txtMenge) multiplizieren und in ein Labelfeld (lblPreis) ausgeben. Zusätzlich soll der Preis noch 10% reduziert werden sollte es sich bei dem markierten Wert in der Listbox um z. B. "Gewür...
01.06.2015 16:25:39
Thread-ID: 1428702
3 Beiträge
VBA gefilterte Daten mit textbox in listbox anzeig
benny

Hallo zusammen,
ich habe folgendes Problem:
Ich habe eine Tabelle mit zwei Spalten. In Spalte A sind verschiedene Namen und in Spalte B verschiedene Codes aufgelistet. Jedem Code sind unterschiedlich viele Namen zugeordnet. Zum Beispiel gehören zum Code 509080 die Namen Hans, Otto udn...
01.06.2015 17:08:37
Thread-ID: 1428711
5 Beiträge
Anzeige
ComboBox1 Liste per VBA befuellen
Uwe

Hallo,
ich habe in dem Tabellenblatt "Deutschland" die "ComboBox1".
Diese moechte ich mit Daten aus einem anderen Tabellenblatt der gleichen Datei befuellen.
Die "Befuellung" der "ComboBox1" mit Daten soll passieren, wenn in einem Userform der Button "CommandButton1" gedrueckt wird....
08.03.2016 09:46:15
Thread-ID: 1480571
14 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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