Thema Datum  Von Nutzer Rating
Antwort
Rot Listbox Suchfunktion
08.06.2024 19:04:02 Lavdrim
NotSolved
08.06.2024 19:45:43 ralf_b
NotSolved
09.06.2024 00:00:16 Gast9190
NotSolved
09.06.2024 02:38:56 ralf_b
Solved
09.06.2024 08:50:58 Alwin Weisangler
Solved
09.06.2024 09:13:20 Alwin Weisangler
Solved
09.06.2024 09:48:12 Lavdrim
NotSolved
09.06.2024 10:31:20 Alwin Weisangler
Solved
09.06.2024 10:54:25 Lavdrim
NotSolved
09.06.2024 11:09:29 Alwin Weisangler
Solved
09.06.2024 11:31:16 Lavdrim
NotSolved
09.06.2024 12:16:17 Alwin Weisangler
Solved
09.06.2024 12:25:32 Alwin Weisangler
Solved
09.06.2024 12:56:27 Gast20705
Solved
09.06.2024 13:08:41 Gast67005
Solved
09.06.2024 13:43:27 Lavdrim
NotSolved

Ansicht des Beitrags:
Von:
Lavdrim
Datum:
08.06.2024 19:04:02
Views:
412
Rating: Antwort:
  Ja
Thema:
Listbox Suchfunktion

Hallo
ich habe eine listbox mit suchfunktion erstellt mit mehreren suchfeldern(textfeld)
wenn ich auf einem suchfeld z.b Mercedes Eintrage dan finde ich auch alle fahrzeuge, aber wenn ich dan zum nechsten suchfeld gehe um dort nach automatik zu suchen
dan verschwinden die fahrzeuge und es erscheinen nur die Automatik Getriebe fahrzeuge
wie schaffe ich es das alle suchfelder aktiv bleiben

Private Sub Getriebe_Change()

Dim Teile As Long

'ListBox Leeren
Me.ListBoxCar.Clear

'Schleife über alle Zeilen der Tabelle
For Zeile = 2 To Fahrzeugbestand.Cells(Rows.Count, 2).End(xlUp).Row
    
    If InStr(1, LCase(Fahrzeugbestand.Cells(Zeile, 6).Value), LCase(Me.Getriebe.Value)) <> 0 Then
    
    'Listbox befüllen
    Me.ListBoxCar.AddItem Fahrzeugbestand.Cells(Zeile, 2).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 1) = Fahrzeugbestand.Cells(Zeile, 3).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 2) = Fahrzeugbestand.Cells(Zeile, 4).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 3) = Fahrzeugbestand.Cells(Zeile, 5).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 4) = Fahrzeugbestand.Cells(Zeile, 6).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 5) = Fahrzeugbestand.Cells(Zeile, 7).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 6) = Fahrzeugbestand.Cells(Zeile, 8).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 7) = Fahrzeugbestand.Cells(Zeile, 9).Value
    
End If
    
Next Zeile

End Sub

Private Sub Marke_Change()

Dim Teile As Long

'ListBox Leeren
Me.ListBoxCar.Clear

'Schleife über alle Zeilen der Tabelle
For Zeile = 2 To Fahrzeugbestand.Cells(Rows.Count, 2).End(xlUp).Row
    
    If InStr(1, LCase(Fahrzeugbestand.Cells(Zeile, 2).Value), LCase(Me.Marke.Value)) <> 0 Then

    'Listbox befüllen
    Me.ListBoxCar.AddItem Fahrzeugbestand.Cells(Zeile, 2).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 1) = Fahrzeugbestand.Cells(Zeile, 3).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 2) = Fahrzeugbestand.Cells(Zeile, 4).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 3) = Fahrzeugbestand.Cells(Zeile, 5).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 4) = Fahrzeugbestand.Cells(Zeile, 6).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 5) = Fahrzeugbestand.Cells(Zeile, 7).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 6) = Fahrzeugbestand.Cells(Zeile, 8).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 7) = Fahrzeugbestand.Cells(Zeile, 9).Value
    
End If
    
Next Zeile

End Sub

Private Sub UserForm_Initialize()

Dim Teile As Long

'Schleife über alle Zeilen der Tabelle

For Zeile = 2 To Fahrzeugbestand.Cells(Rows.Count, 2).End(xlUp).Row

    'Listbox befüllen
    Me.ListBoxCar.AddItem Fahrzeugbestand.Cells(Zeile, 2).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 1) = Fahrzeugbestand.Cells(Zeile, 3).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 2) = Fahrzeugbestand.Cells(Zeile, 4).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 3) = Fahrzeugbestand.Cells(Zeile, 5).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 4) = Fahrzeugbestand.Cells(Zeile, 6).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 5) = Fahrzeugbestand.Cells(Zeile, 7).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 6) = Fahrzeugbestand.Cells(Zeile, 8).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 7) = Fahrzeugbestand.Cells(Zeile, 9).Value
    
Next Zeile

'Erste Element auswählen
Me.ListBoxCar.Selected(0) = True

End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Listbox Suchfunktion
08.06.2024 19:04:02 Lavdrim
NotSolved
08.06.2024 19:45:43 ralf_b
NotSolved
09.06.2024 00:00:16 Gast9190
NotSolved
09.06.2024 02:38:56 ralf_b
Solved
09.06.2024 08:50:58 Alwin Weisangler
Solved
09.06.2024 09:13:20 Alwin Weisangler
Solved
09.06.2024 09:48:12 Lavdrim
NotSolved
09.06.2024 10:31:20 Alwin Weisangler
Solved
09.06.2024 10:54:25 Lavdrim
NotSolved
09.06.2024 11:09:29 Alwin Weisangler
Solved
09.06.2024 11:31:16 Lavdrim
NotSolved
09.06.2024 12:16:17 Alwin Weisangler
Solved
09.06.2024 12:25:32 Alwin Weisangler
Solved
09.06.2024 12:56:27 Gast20705
Solved
09.06.2024 13:08:41 Gast67005
Solved
09.06.2024 13:43:27 Lavdrim
NotSolved