Listbox in Userform mit Filterfunktion

[Steffl]

Hallo Michael,

Ich weiß jetzt nicht, was du mir mit deinen Zeilen sagen wolltest.

dabei habe ich es extra auf die unterschiedlichen Codezeilen begrenzt  :s  Naja, versuche es nochmals mit Fettdruck

      ListBox1.List = Array_Prüfen(ListBox2.List, 2)

und

      ListBox1.List = Array_Prüfen(ComboBox3, 7)

fällt jetzt der Groschen?

[MdeJong]

Hallo Steffl

du meinst, ich soll das    .List  fehlen lassen?

das habe ich zuvor schon versucht......und ging nicht

[MdeJong]

Hi Steffl,


sorry...geht doch.
Vielleicht habe ich vorher den Punkt vor dem List nicht gelöscht?

wenn ich 2 Ergebnisse in der Listbox2 habe, wäre es gut, wenn ich zwischen den beiden hin und her wählen kann und diese jeweils angezeigt werden in Listbox 1.
Man kann sich ja mal verklicken ;)
kann man das irgendwie in dem Code umsetzen?

Gruß
Michael

[Steffl]

Hallo Michael,

keine Ahnung ob ich es richtig verstanden habe

Code:

Private Sub ListBox2_Click()
   On Error Resume Next
   If Len(ListBox2.List) > 1 Then
       'Listbox1 vorher leeren
       ListBox1.Clear
       ListBox1.List = Array_Prüfen(ListBox2.List, 2)
       Label1.Caption = ListBox1.ListCount & " Datensätze gefunden"
   End If
End Sub

[MdeJong]

Hallo Steffl,

nee....o geht's nicht.

wein ich in der Listbox 2 etwas suche, hab 2 oder mehrere Ergebnisse...klicke auf 1 Ergebnis und die Listbox1 füllt sich mit den 
gewählten Daten.
Willich aber anschließend mit klick in der Listbox den 2. oder 3. gefunden Eintrag wählen, wird alles geleert
Es sollte eigentlich aus dem Suchergebnis, der neu gewählte Eintrag die Listbox1 damit aktualisieren.

[Crazy Tom]

dann nimm aus der Sub Clear_All das "clearen" der Listbox2 raus

und dann clearst du die Listbox2 wenn du auf "Film suchen" klickst (haste ja schon)

[MdeJong]

Hi Tom,

hab ich gemacht...das clear aus dem Sub "clear all2

Trotzdem kann ich nicht in der Listbox2 (wenn ich 3 gefundene Ergebnisse habe) auf dem ersten Ergebnis
klicken....listbox1 wird angezeigt.
auf das 2. Ergebnis der listbox2 klicken.....alles bleibt stehen.

Es findet kein Wechsel statt.

Bei diesem Code, wird bei erster Wahl aus der Listbox2 die Listbox1 aktualisiert.

Code:

Private Sub ListBox2_Click()
  On Error Resume Next
  If Len(ListBox2.List) > 1 Then
      ListBox1.List = Array_Prüfen(ListBox2, 2)
      Label1.Caption = ListBox1.ListCount & " Datensätze gefunden"
  End If
End Sub

bei klick auf 2.ergebnis...passiert nichts.

[Crazy Tom]

erst auf "Neue Suche" klicken
Listbox2 bleibt voll und Listbox1 wird leer
dann kannste auf einen andern Eintrag klicken

[MdeJong]

Achso...ist das gemeint.


So geht es :)

Dann bin ich ja fast fertig  ;)

Jetzt muss ich nur noch den Inhalt der Listbox drucken können.

Ist das richtig, das ich den Inhalt der listbox in ein extra Tabellenblatt ablegen muss, um diesen dann drucken zu können?
mit Überschriften?
das Tabellenblatt welches dafür gedacht sein soll, muss sich dann immer aktualisieren, wenn man eine neue Filterung zumausdrucken machen will?

[Crazy Tom]

klasse.... dann hast du also demnächst 3 gleiche Listen