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
