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 download Gefilterte Daten in eine ListBox einlesen download
Dateien aus Listbox auslesen und öffnen download Listbox-Eintrag durch Mausbewegung markieren download
ListBox-Einträge auswechseln download Horizontal angeordnete Elemente in eine ListBox übernehmen download
Tabellenblattnamen in eine ListBox einlesen download ListBox bei Eintrag erweitern download
Als Zellkontextmenü Listbox aufrufen download Dateinamen in Listbox download
Mehrfachauswahl in ListBox auslesen download Ordner eines Verzeichnisses in ListBox übernehmen download
Verzeichnisbaum aufrufen und Dateien in ListBox auflisten download Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download
Matrix in UserForm-ListBox einlesen download Bereichsnamen in UserForm-ListBox auflisten und editieren download
Ausgewählte Werte aus UserForm-ListBoxes addieren download Mehrfachauswahl aus UserForm-ListBoxes in Tabelle eintragen download
Gruppe von UserForm-ListBoxes über eine Schleife ansprechen download Wahlweise Elemente in UserForm-Text- oder -ListBox markieren download
Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen download ListBox-Auswahl in Labels übernehmen download
Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download Blattnamen bedingt in ListBox einlesen und Blätter auswählen download
Einlesen von Spaltenköpfen in UserForm-ListBox download Spalten ein-/ausblenden nach UserForm-ListBox-Vorgabe download
Mehrspaltige UserForm-ListBox lückenlos füllen download Makroverzweigungen nach OptionsFeld- oder ListBox-Auswahl download
Aus mehrspaltiger UserForm-ListBox Werte der 1. Spalte auslesen download Werte aus UserForm-ListBox in die Zwischenablage übernehmen download
Wert aus UserForm-ListBox in Tabellenblatt eintragen download Einlesen des Outlook-Adressbuches in eine UserForm-ListBox download
Blattauswahl über UserForm-ListBox mit Mehrfachauswahl download UserForm-TextBox-Werte einer ListBox hinzufügen download
Druck der in einer UserForm-ListBox ausgewählten Arbeitsblätter download Zufallszahl in UserForm-ListBox zentriert anzeigen download
UserForm-ListBox in Abhängigkeit zur aufrufenden Spalte füllen download Mehrspaltige UserForm-ListBox füllen und aktuellen Wert einlesen download
Element in ListBox in Abhängigkeit einer TextBoxeingabe auswählen download Im Abstand von 2 Sekunden durch UserForm-ListBox scrollen download
UserForm-ListBox-Einträge sortieren download Elemente in einer UserForm-ListBox bei Drücken der Entf-Taste lös download
Doppelte Einträge in UserForm-ListBox löschen download Mehrspaltige UserForm-ListBox sortieren download
Ausgewählen Zeilen aus UserForm-ListBox in neue Tabelle download Zweite ListBox in Abhängigkeit der ersten füllen download
In Abhängigkeit einer ComboBox-Auswahl eine ListBox füllen download Werte in zweispaltiger ListBox rechts- und linksbündig darstellen download
Alle Dateien im Verzeichnis öffnen download Web-Seiten mit Excel95 öffnen download
Arbeitsmappe mit dem Namen des aktuellen Datums öffnen download Fußzeilen beim Öffnen eintragen download
Arbeitsmappe ohne Rückfrage nach Aktualisierung öffnen download Datei öffnen, deren Name in einer Zelle steht download
Beim Öffnen neue Symbolleiste download Symbolleisten beim Öffnen aus-, beim Schließen einblenden download
Geburtstagsmeldung bei Öffnen der Arbeitsmappe download Beim Öffnen einer Arbeitsmappe WAV-Datei abspielen download
Bei Doppelklick Ordner im Explorer öffnen download Beim Öffnen einer Arbeitsmappe neues Symbol in Formatsymbolleiste download
Beim Öffnen der Arbeitsmappe bedingt Datum eintragen download Tabelle mit der jeweils nächsten Kalenderwoche öffnen download
Arbeitsmappe öffnen, erstes Blatt drucken, Mappe schließen download Alle Arbeitsmappen eines Verzeichnisses öffnen download
Datei auswählen, öffnen und Formelsuchdialog anzeigen download Midi-Datei beim Öffnen einer Arbeitsmappe abspielen download
Vorlage auswählen und Arbeitsmappe öffnen download Aktuelle Geburtstage beim Öffnen der Arbeitsmappe anzeigen download
Beim Öffnen der Arbeitsmappe eine UserForm anzeigen download Beim Öffnen Menüleiste anlegen und auf "ganzen Bildschirm" schalten download
Beim Öffnen zweites Fenster erzeugen und anordnen download Beim Öffnen der Arbeitsmappe Passwort abfragen download
Bei Öffnen Standardschriftgröße prüfen und Zoom festlegen download Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download
Arbeitsmappe 5 Sekunden nach dem Öffnen speichern und schließen download Prüfung, welche Zellen nach Öffnen verändert wurden download
Terminmeldung beim Öffnen der Arbeitsmappe download Beim Öffnen der Arbeitsmappe Email versenden download
Beim Öffnen PowerPoint starten und danach Mappe aktivieren download Beim Öffnen einer Arbeitsmappe erstes Blatt auswählen download
Bei Doppelklick gelinkte Arbeitsmappe öffnen download CD-Laufwerk öffnen und schließen download
Dateistrukturen in UserForm einlesen und Datei öffnen download Datei entsprechend der Eingabe des Dateinamens öffnen download
Dateinamen in UserForm-ComboBox einlesen und Datei öffnen download Arbeitsmappe öffnen und nach Beenden des Mausklicks schließen download
Das in einem Gültigkeitfeld ausgewählte Word-Dokument öffnen download Access-Datenbank öffnen und deren Makro starten download
Bei jedem Öffnen der Arbeitsmappe Wert um 1 erhöhen download Beim Öffnen Dialog mit Dateiname und Dateidatum download
Beim Öffnen der Arbeitsmappe Menü-ComboBoxes anlegen download Webseite öffnen und eine Schaltfläche mit Makro hinzufügen download
Meldung beim Öffnen und bei Zellauswahl in Spalte A download Warten, bis eine Datei geschlossen wird, dann öffnen download
Excel-Arbeitsmappe aus dem Internet öffnen und verschieben download Download und Öffnen einer Arbeitsmappe download
Beim Öffnen der Arbeitsmappe Bestellnummer eintragen download Diagramm in Userform download
XL-Dateien in UserForm listen download UserForm an Excel-Fenster anpassen download
Fundstellen in UserForm listen download Module und UserForms austauschen download
In einer Schleife auf Elemente einer UserForm zugreifen download Werte in eine ComboBox einer UserForm übernehmen download
Zellinhalt als Label-Aufschrift in UserForm download Alle CheckBoxes einer UserForm ansprechen download
Wenn kein Eintrag, UserForm nicht schließen download Aktiven Drucker in UserForm wechseln download
Text aus UserForm-Textbox in Variable einlesen download UserForm in Abhängigkeit einer RefEdit-Auswahl anzeigen download
Nur Buchstaben in eine UserForm-TextBox download Wert in Tabelle suchen und in UserForm ausgeben download
Tabellenblatt in UserForm download Neue UserForm bedingt nach ComboBox-Auswahl aufrufen download
Nach Ortsauswahl neue UserForm mit Ortsteilauswahl download Textfelder in UserForm beim Start vorbelegen download
Text aus UserForm in eine Zelle schreiben download Verhindern des Schließens einer UserForm mittels Schließkreuz download
Wert in UserForm-TextBox eintragen und selektieren download Auf UserForm-CommandButton-Klick eine Internetseite aufrufen download
ComboBox-Felder in UserForm aufklappen download Eingabekontrolle bei UserForm download
UserForm-ComboBox-Feld nach Tasteneingabe aufklappen download Userform in der Entwicklungsumgebung anzeigen download
Wert aus 2. UserForm-ComboBox-Spalte berechnen download CheckBoxes in UserForms in eine Schleife einbinden download
Anzahl von CheckBoxes in einer UserForm ermitteln download Vereinfachte Datumseingabe über UserForm download
Auslesen des ausgewählten Optionsfeldes in einer UserForm download Werte von CheckBoxes in einer UserForm abfragen download
Mit Drehfeld durch UserForm-TextBoxes blättern und Daten auslesen download Mit TextBox-Werten in UserForm rechnen download
Datensätze in UserForm auswählen und im Blatt löschen download Bilder in UserForm und Bildgröße anpassen download
Aktuelle Zeit über UserForm eintragen und Rennzeit berechnen download Werte aus UserForm-TextBox in bestimmten Formate übertragen download
UserForm als Fortschrittsanzeige download AcrobatReader mit *.pdf-Dokument über UserForm starten download
Zu einer aufrufenden UserForm zurückkehren download In einer UserForm Berechnungen aufaddieren download
Spalte A mehrer Mappen in UserForm und aktives Blatt download Adressfeld aus UserForm-ComboBox füllen download
Datenmaske beim Aufruf mit Nullen füllen download ComboBox mit Monatsnamen füllen download
Wert aus Spalte C, wenn Spalten A und B Bedingungen erfüllen download Füllen aller leeren Zellen mit einem Platzhalter download
TextBox in Abhängigkeit einer ComboBox-Auswahl füllen download Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen download
Beim Erfüllen einer Bedingungen Farbe für 1 Minute download Bei Zelleingabe andere Zellen füllen download
UserForm-ListBox in Abhängigkeit von Datumsauswahl füllen download ComboBox in Arbeitsblatt erstellen und füllen download
Leerzellen mit Dummy-Werten füllen download