Inhalt
- UserForm einfügen
- Eigenschaftenfenster anzeigen
- UserForm designen
- Werkzeugsammlung anzeigen
- ListBox füllen
- UserForm-Initialize Ereignis/Event
- Letzte Zeile auslesen
- ListBox zweite Spalte hinzufügen
- Erstes Element einer ListBox auswählen
- Suchfunktion der ListBox schreiben
- TextBox-Change Ereignis/Event
- ListBox leeren
- ListBox filtern
- InStr-Funktion
- Code case-insensitive machen (Groß-/Kleinschreibung nicht beachten)
- lCase-Funktion
- Mehrere Spalten in ListBox durchsuchen
- Vergleichsoperator Or
- Code über mehrere Zeilen schreiben
- UserForm über Button aufrufen
- Modul einfügen
- Nächste Schritte mit der ListBox
Code (UserForm)
Private Sub UserForm_Initialize() Dim Zeile As Long 'Schleife über alle Zeilen der Tabelle For Zeile = 12 To Verkaeufe.Cells(Rows.Count, 2).End(xlUp).Row Me.ListBox1.AddItem Verkaeufe.Cells(Zeile, 2) Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Verkaeufe.Cells(Zeile, 6) Next Zeile 'Erstes Element als Default auswählen Me.ListBox1.Selected(0) = True End Sub Private Sub TextBox1_Change() Dim Zeile As Long Me.ListBox1.Clear 'Schleife über alle Zeilen der Tabelle For Zeile = 12 To Verkaeufe.Cells(Rows.Count, 2).End(xlUp).Row If InStr(1, LCase(Verkaeufe.Cells(Zeile, 6).Value), LCase(Me.TextBox1.Value)) <> 0 Or _ InStr(1, LCase(Verkaeufe.Cells(Zeile, 2).Value), LCase(Me.TextBox1.Value)) <> 0 Then Me.ListBox1.AddItem Verkaeufe.Cells(Zeile, 2) Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Verkaeufe.Cells(Zeile, 6) End If Next Zeile 'Bereitgestellt von VBATrainer: www.vbatrainer.de End Sub
Code (Modul)
Sub UfSucheLaden() UfVerkaufLaden.Show 'Bereitgestellt von VBATrainer: www.vbatrainer.de End Sub