DblClick
12.05.2013 00:38:39
Heike
schlage mich ja schon den ganzen Tag tapfer mit meinem Formular, jetzt bin ich aber auf ein weiteres Problem gestoßen. Hoffe sehr, ihr habt eine Lösung für mich.
CMB1 und CMB2 je in einer Frame, da sie unabhängig sind. Wähle ich einen Artikel in CMB1 aus, wird mir in einer ListBox der dazugehörige Kunde angezeigt.
Mit einem Doppelklick in die Listbox (außerhalb der Frames), wird mit folgendem Code der ausgewählte Kunde in die TextBox13 (Frame1) eingefügt.
Das klappt auch, nur, wenn ich einen Artikel über CMB2 auswähle, listet er mir zwar die richtigen Kunden auf aber mit einem Doppelklick werden diese AUCH in Frame1 / TextBox13 eingefügt, das ist blöd, denn der Kunde soll dann in der Textbox16 in Frame2 erscheinen.
Puuuhh, ich hoffe, ich habe mich verständlich ausgedrückt. Hier nun der funktionierende Code für CMB1
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim ssearch As String
If ListBox1.ListCount > 1 Then
ssearch = ListBox1.List(ListBox1.ListIndex, 0)
Set rngID = Columns("N:N").Find(what:=ssearch, lookat:=xlWhole, LookIn:=xlValues)
TextBox13 = ListBox1.List(ListBox1.ListIndex, 0)
End If
ssearch = ""
ListBox1.Clear
End Sub
Ach, zur Info: Artikelliste und Kundenliste sind für beide CMBs identisch.
Gruß
Heike