ListBox Suche

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
Share on linkedin
Share on xing
Share on email
Share on whatsapp
Share on facebook

Ähnliche themen

VBATrainer Excel VBA Coaching - Dozent Kai Weissmann

Kai Weissmann

VBA Entwickler

Hallo und schön, dass du hier bist! Schau dich gerne in meinen Blog-Posts um. Falls du Fragen zu einem Thema hast, schreib mir gerne einen Kommentar.

Kai Weissmann

Persönliche Empfehlungen
Mein Kurs

Jetzt registrieren

Close Bitnami banner
Bitnami