Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1056to1060
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
1056to1060
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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
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
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
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

304 Forumthreads zu ähnlichen 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
Anzeige
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
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
Anzeige
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
VBA: Schriftgröße aller ListBoxen ändern
Bernd

Hallo zusammen,
gibt es ein Makro, welches alle Schriften/Größe aller Userform ListBoxen auf einmal ändert.
Wäre für eure Hilfe sehr dankbar.
Gruß
Bernd
25.06.2013 18:48:54
Thread-ID: 1319669
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
Anzeige

Links zu Excel-Dialogen

ListBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
12
6
2
1
5
3
3
3
4
1
3
2
4
13
9
1
1
5
1
2
3
1
4
1
3