Hallo Michael,
(13.12.2017, 16:04)MdeJong schrieb: [ -> ]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
Zitat: ListBox1.List = Array_Prüfen(ListBox2.List, 2)
und
Zitat: ListBox1.List = Array_Prüfen(ComboBox3, 7)
fällt jetzt der Groschen?
Hallo Steffl
du meinst, ich soll das .List fehlen lassen?
das habe ich zuvor schon versucht......und ging nicht
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
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
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.
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)
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.
erst auf "Neue Suche" klicken
Listbox2 bleibt voll und Listbox1 wird leer
dann kannste auf einen andern Eintrag klicken
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?
klasse.... dann hast du also demnächst 3 gleiche Listen