In einer Userform kann ich per ComboBox verschiedene Einträge suchen, die ich auf einer Tabelle in Kolonne A-C eingetragen habe. Alle weiteren Daten werden von derselben Linie (Row) in den unteren Textboxen angegeben.
Nun ist jedoch ein Filter aktiviert, und es sollten ja nur die gefilterten Daten angezeigt werden. Ist aber nicht so, trotz Filter zeigt es alle Daten an.
Verstehe ich nicht! Mein Code sieht so aus:
Dim arrA() As String
Dim arrB() As String
Dim arrC() As String
Private Sub ComboBox1_Change()
ComboBox1.Enabled = True
Textbox1= arrA(ComboBox1.ListIndex)
Textbox2 = arrB(ComboBox1.ListIndex)
Textbox3 = arrC(ComboBox1.ListIndex)
End Sub
Private Sub UserForm_Initialize()
ReDim Preserve arrA(0)
ReDim Preserve arrB(0)
ReDim Preserve arrC(0)
arrA(0) = Cells(1, 1)
arrB(0) = Cells(1, 2)
arrC(0) = Cells(1, 3)
i = 1
Do Until Cells(i, 1) = ""
ReDim Preserve arrA(UBound(arrA) + 1)
ReDim Preserve arrB(UBound(arrB) + 1)
ReDim Preserve arrC(UBound(arrC) + 1)
i = i + 1
arrA(UBound(arrA())) = Cells(i, 1)
arrB(UBound(arrB())) = Cells(i, 2)
arrC(UBound(arrC())) = Cells(i, 3)
Loop
ReDim Preserve arrA(UBound(arrA) - 1)
ReDim Preserve arrB(UBound(arrB) - 1)
ReDim Preserve arrC(UBound(arrC) - 1)
ComboBox1.List = arrB
ComboBox2.List = arrC
End Sub