ich lese aus einer Tabelle (mit bsw. Inhalt Name,Ort, Rubrik) Daten in eine Listbox ( bsw. Name) und diese werden bei Auswahl an Textboxen übergeben.
Dann lese ich aus einer weiteren Tabelle eine Liste mit Rubriken in eine Combobox.
Nun möchte ich nach Auswahl in der combobox nur die Einträge in die Listbox übernehmen, deren Rubriken übereinstimmen, bzw. eine Auswahl alle, wie sei beim starten vorhanden ist.
auszug aus dem code:
Sub ZeigenDaten()
i = 2
Workbooks.Open Filename=.....
Do While Cells(i, 1). Value ""
Userform1.Listbox1.AddIte (Workbooks("mappe1.xls")Sheets(Tabelle1").Cells(i, 3).Value)
i = i + 1
Loop
Do While Cells(i, 1). Value ""
Userform1.Listbox1.AddIte (Workbooks("mappe1.xls")Sheets("Tabelle2").Cells(i, 2).Value)
i = i + 1
Loop
Application.Screenupdating = False
Userform1.Show
End Sub
die Übergabe in die Textboxen:
Private Sub ListBox1_Click()
i = Listbox1.ListIndex + 2
Name.Text = Workbooks("mappe1.xls")Sheets("Tabelle2").Cells(i, 2).Value
Ort.Text = Workbooks("mappe1.xls")Sheets("Tabelle2").Cells(i, 2).Value
End Sub
und nun steht bis dahin folgendes:
Privat Sub Combobox1_Change()
ListBox1.Clear
Textfelderleeren
End Sub
könnt ihr mal die entscheidende Richtung weisen?
Für eure Mühen bereits schon mal herzlichen Dank....bei dem Wetter am Computer ist schon hart ;o)
gruss stebbi