Das Archiv des Excel-Forums
Listbox nach öffnen der Userform füllen
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Betrifft: Listbox nach öffnen der Userform füllen
von: Dominik
Geschrieben am: 09.09.2019 18:48:07
Hallo,
ich habe hier einen code von Nepumuk und würde gerne wissen ob es möglich ist diesen auch in userform initialize einzufügen, sodass die Listbox gefüllt wird sobald die userform geöffnet wurde. ich hoffe das geht ?
gruß dominik
Private Sub CommandButton1_Click()
Dim rng As Range
Dim objSheet As Worksheet
Dim strFirst As String
Set objSheet = Worksheets("Tabelle2")
With ListBox5
.Clear
.ColumnCount = 5
Set rng = objSheet.Columns("P").Find(What:=TextBox17.Value, _
LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
strFirst = rng.Address
Do
.AddItem rng.Value
.List(.ListCount - 1, 1) = objSheet.Cells(rng.Row, 4).Value
.List(.ListCount - 1, 2) = objSheet.Cells(rng.Row, 5).Value
.List(.ListCount - 1, 3) = objSheet.Cells(rng.Row, 6).Value
.List(.ListCount - 1, 4) = rng.Row
Set rng = objSheet.Columns("P").FindNext(After:=rng)
Loop Until strFirst = rng.Address
End If
End With
Set rng = Nothing
Set objSheet = Nothing
End Sub

Betrifft: AW: Listbox nach öffnen der Userform füllen
von: 1712081.html
Geschrieben am: 09.09.2019 18:51:50
Du siehst Deine Datei. Ich sehe sie nicht, da ich nicht auf fremde Rechner schaue.
Teste es einfach.
Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Betrifft: AW: Listbox nach öffnen der Userform füllen
von: 1712085.html
Geschrieben am: 09.09.2019 18:58:02
Hallo Dominik,
und wo soll der Suchbegriff her kommen?
Gruß
Nepumuk
Betrifft: AW: Listbox nach öffnen der Userform füllen
von: 1712517.html
Geschrieben am: 11.09.2019 17:10:47
Hallo Nepumuk,
der Suchbegriff ist wie oben in dem Code die TextBox 17. also im Prinzip den Code von dir in userform_initialize einfügen, aber das funktioniert leider nicht. und dann soll sobald die userform offen ist textbox17 in tabelle2 spalte p gesucht werden und die listbox5 gefüllt werden. ich hatte auch versucht dein makro zu aktivieren nachdem die userform sich öffnet aber das ging leider nicht.
gruß dominik
Betrifft: AW: Listbox nach öffnen der Userform füllen
von: 1712527.html
Geschrieben am: 11.09.2019 18:09:52
Hallo Dominik,
schreibst du den Suchbegriff schon vor der Show-Methode in die TextBox? Dann sollte der Code in das Activate-Event des Userforms, denn das Initialize-Event wird schon beim Ansprechen der TextBox ausgelöst.
Gruß
Nepumuk
Betrifft: AW: Listbox nach öffnen der Userform füllen
von: 1712886.html
Geschrieben am: 13.09.2019 12:53:32
Hallo Nepumuk,
mit dem folgenden Code öffnet sich die userform und die TextBox17 wird automatisch gefüllt.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rngzelle As Range
' Doppelklick in Spalte A
If Target.Column = 1 Then
' suche in Tabelle2 Spalte A den Inhalt aus Zelle mit Doppelklick
Set rngzelle = Worksheets("Kunden").Columns(19).Find(Target.Value, LookAt:=xlWhole)
' wurde gefunden
If Not rngzelle Is Nothing Then
Cancel = True
UserForm1.TextBox1 = rngzelle.Offset(0, -17).Value & vbLf & _
rngzelle.Offset(0, -16).Value & vbLf & rngzelle.Offset(0, -11).Value & vbLf & _
rngzelle.Offset(0, -10).Value & vbLf & rngzelle.Offset(0, -9).Value & vbLf & rngzelle.Offset(0, -8).Value
' TextBox1 = 1 Zelle rechts neben der gefundenen Zelle
UserForm1.TextBox18 = rngzelle.Offset(0, 14)
' TextBox2 = 2 Zellen rechts neben der gefundenen Zelle
UserForm1.TextBox17 = rngzelle.Offset(0, 0)
' TextBox3 = 3 Zellen rechts neben der gefundenen Zelle
UserForm1.TextBox15 = rngzelle.Offset(0, 10)
UserForm1.TextBox16 = rngzelle.Offset(0, 11)
UserForm1.TextBox11 = rngzelle.Offset(0, 8)
UserForm1.TextBox14 = rngzelle.Offset(0, 9)
UserForm1.TextBox13 = rngzelle.Offset(0, 7)
UserForm1.TextBox12 = rngzelle.Offset(0, 6)
UserForm1.TextBox24 = rngzelle.Offset(0, 13)
UserForm1.TextBox25 = rngzelle.Offset(0, 12)
UserForm1.Show
End If
End If
End Sub

Betrifft: AW: Listbox nach öffnen der Userform füllen
von: 1712959.html
Geschrieben am: 13.09.2019 15:42:24
Hallo Dominik,
wie schon geschrieben, der Code zum suchen für die ListBox muss in das Activate-Event des UserForms. Ich würde eine eigene Prozedur aus der Suchroutine machen, dann kannst du sie sowohl im Activate-Event des Userforms als auch mit dem CommandButton aufrufen.
Mir ist jetzt aufgefallen, du suchst im BeforeDoubleClick-Event der Tabelle in Spalte 19 also S. Im Userform suchst du aber in Spalte P. ???
Gruß
Nepumuk
Betrifft: AW: Listbox nach öffnen der Userform füllen
von: 1712996.html
Geschrieben am: 13.09.2019 19:26:29
Hallo Nepumuk,
sorry für die verwirrung die ich verursacht habe. ich musste das tabbelnblatt umstrukturieren deshalb hat sich die spalte geändert. leider bin ich eine absolute niete im vba code schreiben und weiß nicht so recht die der code in userform activate aussehen muss. ich wäre dir sehr dankbar wenn du mir sagen könntest wie der code auszusehen hat.
sorry nochmal und vielen dank für deine bisherige hilfe
Gruß
dominik
Betrifft: AW: Listbox nach öffnen der Userform füllen
von: 1712998.html
Geschrieben am: 13.09.2019 20:00:50
Hallo Dominik,
so:
Private Sub CommandButton1_Click()
Call Search
End Sub
Private Sub UserForm_Activate()
Call Search
End Sub
Private Sub Search()
Dim rng As Range
Dim objSheet As Worksheet
Dim strFirst As String
Set objSheet = Worksheets("Kunden")
With ListBox5
.Clear
.ColumnCount = 5
Set rng = objSheet.Columns(19).Find(What:=TextBox17.Value, _
LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
strFirst = rng.Address
Do
.AddItem rng.Value
.List(.ListCount - 1, 1) = rng.Offset(0, 4).Value
.List(.ListCount - 1, 2) = rng.Offset(0, 5).Value
.List(.ListCount - 1, 3) = rng.Offset(0, 6).Value
.List(.ListCount - 1, 4) = rng.Row
Set rng = objSheet.Columns(19).FindNext(After:=rng)
Loop Until strFirst = rng.Address
End If
End With
Set rng = Nothing
Set objSheet = Nothing
End Sub
Gruß
Nepumuk
Betrifft: AW: Listbox nach öffnen der Userform füllen
von: 1713168.html
Geschrieben am: 15.09.2019 11:41:54
Hallo Nepumuk,
es klappt super, vielen vielen dank
gruß
dominik
Excel-Beispiele zum Thema "Listbox nach öffnen der Userform füllen"
Mehrfachauswahl aus ListBox auslesen |
 |
Gefilterte Daten in eine ListBox einlesen |
 |
Dateien aus Listbox auslesen und öffnen |
 |
Listbox-Eintrag durch Mausbewegung markieren |
 |
ListBox-Einträge auswechseln |
 |
Horizontal angeordnete Elemente in eine ListBox übernehmen |
 |
Tabellenblattnamen in eine ListBox einlesen |
 |
ListBox bei Eintrag erweitern |
 |
Als Zellkontextmenü Listbox aufrufen |
 |
Dateinamen in Listbox |
 |
Mehrfachauswahl in ListBox auslesen |
 |
Ordner eines Verzeichnisses in ListBox übernehmen |
 |
Verzeichnisbaum aufrufen und Dateien in ListBox auflisten |
 |
Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen |
 |
Matrix in UserForm-ListBox einlesen |
 |
Bereichsnamen in UserForm-ListBox auflisten und editieren |
 |
Ausgewählte Werte aus UserForm-ListBoxes addieren |
 |
Mehrfachauswahl aus UserForm-ListBoxes in Tabelle eintragen |
 |
Gruppe von UserForm-ListBoxes über eine Schleife ansprechen |
 |
Wahlweise Elemente in UserForm-Text- oder -ListBox markieren |
 |
Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen |
 |
ListBox-Auswahl in Labels übernehmen |
 |
Zellen für Eintrag auswählen und UserForm-ListBox aufrufen |
 |
Blattnamen bedingt in ListBox einlesen und Blätter auswählen |
 |
Einlesen von Spaltenköpfen in UserForm-ListBox |
 |
Spalten ein-/ausblenden nach UserForm-ListBox-Vorgabe |
 |
Mehrspaltige UserForm-ListBox lückenlos füllen |
 |
Makroverzweigungen nach OptionsFeld- oder ListBox-Auswahl |
 |
Aus mehrspaltiger UserForm-ListBox Werte der 1. Spalte auslesen |
 |
Werte aus UserForm-ListBox in die Zwischenablage übernehmen |
 |
Wert aus UserForm-ListBox in Tabellenblatt eintragen |
 |
Einlesen des Outlook-Adressbuches in eine UserForm-ListBox |
 |
Blattauswahl über UserForm-ListBox mit Mehrfachauswahl |
 |
UserForm-TextBox-Werte einer ListBox hinzufügen |
 |
Druck der in einer UserForm-ListBox ausgewählten Arbeitsblätter |
 |
Zufallszahl in UserForm-ListBox zentriert anzeigen |
 |
UserForm-ListBox in Abhängigkeit zur aufrufenden Spalte füllen |
 |
Mehrspaltige UserForm-ListBox füllen und aktuellen Wert einlesen |
 |
Element in ListBox in Abhängigkeit einer TextBoxeingabe auswählen |
 |
Im Abstand von 2 Sekunden durch UserForm-ListBox scrollen |
 |
UserForm-ListBox-Einträge sortieren |
 |
Elemente in einer UserForm-ListBox bei Drücken der Entf-Taste lös |
 |
Doppelte Einträge in UserForm-ListBox löschen |
 |
Mehrspaltige UserForm-ListBox sortieren |
 |
Ausgewählen Zeilen aus UserForm-ListBox in neue Tabelle |
 |
Zweite ListBox in Abhängigkeit der ersten füllen |
 |
In Abhängigkeit einer ComboBox-Auswahl eine ListBox füllen |
 |
Werte in zweispaltiger ListBox rechts- und linksbündig darstellen |
 |
Alle Dateien im Verzeichnis öffnen |
 |
Web-Seiten mit Excel95 öffnen |
 |
Arbeitsmappe mit dem Namen des aktuellen Datums öffnen |
 |
Fußzeilen beim Öffnen eintragen |
 |
Arbeitsmappe ohne Rückfrage nach Aktualisierung öffnen |
 |
Datei öffnen, deren Name in einer Zelle steht |
 |
Beim Öffnen neue Symbolleiste |
 |
Symbolleisten beim Öffnen aus-, beim Schließen einblenden |
 |
Geburtstagsmeldung bei Öffnen der Arbeitsmappe |
 |
Beim Öffnen einer Arbeitsmappe WAV-Datei abspielen |
 |
Bei Doppelklick Ordner im Explorer öffnen |
 |
Beim Öffnen einer Arbeitsmappe neues Symbol in Formatsymbolleiste |
 |
Beim Öffnen der Arbeitsmappe bedingt Datum eintragen |
 |
Tabelle mit der jeweils nächsten Kalenderwoche öffnen |
 |
Arbeitsmappe öffnen, erstes Blatt drucken, Mappe schließen |
 |
Alle Arbeitsmappen eines Verzeichnisses öffnen |
 |
Datei auswählen, öffnen und Formelsuchdialog anzeigen |
 |
Midi-Datei beim Öffnen einer Arbeitsmappe abspielen |
 |
Vorlage auswählen und Arbeitsmappe öffnen |
 |
Aktuelle Geburtstage beim Öffnen der Arbeitsmappe anzeigen |
 |
Beim Öffnen der Arbeitsmappe eine UserForm anzeigen |
 |
Beim Öffnen Menüleiste anlegen und auf "ganzen Bildschirm" schalten |
 |
Beim Öffnen zweites Fenster erzeugen und anordnen |
 |
Beim Öffnen der Arbeitsmappe Passwort abfragen |
 |
Bei Öffnen Standardschriftgröße prüfen und Zoom festlegen |
 |
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen |
 |
Arbeitsmappe 5 Sekunden nach dem Öffnen speichern und schließen |
 |
Prüfung, welche Zellen nach Öffnen verändert wurden |
 |
Terminmeldung beim Öffnen der Arbeitsmappe |
 |
Beim Öffnen der Arbeitsmappe Email versenden |
 |
Beim Öffnen PowerPoint starten und danach Mappe aktivieren |
 |
Beim Öffnen einer Arbeitsmappe erstes Blatt auswählen |
 |
Bei Doppelklick gelinkte Arbeitsmappe öffnen |
 |
CD-Laufwerk öffnen und schließen |
 |
Dateistrukturen in UserForm einlesen und Datei öffnen |
 |
Datei entsprechend der Eingabe des Dateinamens öffnen |
 |
Dateinamen in UserForm-ComboBox einlesen und Datei öffnen |
 |
Arbeitsmappe öffnen und nach Beenden des Mausklicks schließen |
 |
Das in einem Gültigkeitfeld ausgewählte Word-Dokument öffnen |
 |
Access-Datenbank öffnen und deren Makro starten |
 |
Bei jedem Öffnen der Arbeitsmappe Wert um 1 erhöhen |
 |
Beim Öffnen Dialog mit Dateiname und Dateidatum |
 |
Beim Öffnen der Arbeitsmappe Menü-ComboBoxes anlegen |
 |
Webseite öffnen und eine Schaltfläche mit Makro hinzufügen |
 |
Meldung beim Öffnen und bei Zellauswahl in Spalte A |
 |
Warten, bis eine Datei geschlossen wird, dann öffnen |
 |
Excel-Arbeitsmappe aus dem Internet öffnen und verschieben |
 |
Download und Öffnen einer Arbeitsmappe |
 |
Beim Öffnen der Arbeitsmappe Bestellnummer eintragen |
 |
Diagramm in Userform |
 |
XL-Dateien in UserForm listen |
 |
UserForm an Excel-Fenster anpassen |
 |
Fundstellen in UserForm listen |
 |
Module und UserForms austauschen |
 |
In einer Schleife auf Elemente einer UserForm zugreifen |
 |
Werte in eine ComboBox einer UserForm übernehmen |
 |
Zellinhalt als Label-Aufschrift in UserForm |
 |
Alle CheckBoxes einer UserForm ansprechen |
 |
Wenn kein Eintrag, UserForm nicht schließen |
 |
Aktiven Drucker in UserForm wechseln |
 |
Text aus UserForm-Textbox in Variable einlesen |
 |
UserForm in Abhängigkeit einer RefEdit-Auswahl anzeigen |
 |
Nur Buchstaben in eine UserForm-TextBox |
 |
Wert in Tabelle suchen und in UserForm ausgeben |
 |
Tabellenblatt in UserForm |
 |
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen |
 |
Nach Ortsauswahl neue UserForm mit Ortsteilauswahl |
 |
Textfelder in UserForm beim Start vorbelegen |
 |
Text aus UserForm in eine Zelle schreiben |
 |
Verhindern des Schließens einer UserForm mittels Schließkreuz |
 |
Wert in UserForm-TextBox eintragen und selektieren |
 |
Auf UserForm-CommandButton-Klick eine Internetseite aufrufen |
 |
ComboBox-Felder in UserForm aufklappen |
 |
Eingabekontrolle bei UserForm |
 |
UserForm-ComboBox-Feld nach Tasteneingabe aufklappen |
 |
Userform in der Entwicklungsumgebung anzeigen |
 |
Wert aus 2. UserForm-ComboBox-Spalte berechnen |
 |
CheckBoxes in UserForms in eine Schleife einbinden |
 |
Anzahl von CheckBoxes in einer UserForm ermitteln |
 |
Vereinfachte Datumseingabe über UserForm |
 |
Auslesen des ausgewählten Optionsfeldes in einer UserForm |
 |
Werte von CheckBoxes in einer UserForm abfragen |
 |
Mit Drehfeld durch UserForm-TextBoxes blättern und Daten auslesen |
 |
Mit TextBox-Werten in UserForm rechnen |
 |
Datensätze in UserForm auswählen und im Blatt löschen |
 |
Bilder in UserForm und Bildgröße anpassen |
 |
Aktuelle Zeit über UserForm eintragen und Rennzeit berechnen |
 |
Werte aus UserForm-TextBox in bestimmten Formate übertragen |
 |
UserForm als Fortschrittsanzeige |
 |
AcrobatReader mit *.pdf-Dokument über UserForm starten |
 |
Zu einer aufrufenden UserForm zurückkehren |
 |
In einer UserForm Berechnungen aufaddieren |
 |
Spalte A mehrer Mappen in UserForm und aktives Blatt |
 |
Adressfeld aus UserForm-ComboBox füllen |
 |
Datenmaske beim Aufruf mit Nullen füllen |
 |
ComboBox mit Monatsnamen füllen |
 |
Wert aus Spalte C, wenn Spalten A und B Bedingungen erfüllen |
 |
Füllen aller leeren Zellen mit einem Platzhalter |
 |
TextBox in Abhängigkeit einer ComboBox-Auswahl füllen |
 |
Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen |
 |
Beim Erfüllen einer Bedingungen Farbe für 1 Minute |
 |
Bei Zelleingabe andere Zellen füllen |
 |
UserForm-ListBox in Abhängigkeit von Datumsauswahl füllen |
 |
ComboBox in Arbeitsblatt erstellen und füllen |
 |
Leerzellen mit Dummy-Werten füllen |
 |