Textbox nach dem filtern füllen
27.01.2006 10:25:57
Guido
ich habe dank diesem Forum folgenden Code, um meine Daten aus dem Tabellenblatt in eine Listbox einzulesen:
Dim z As Integer
Dim sp As Integer
Dim arr() As String
z = Worksheets("Tabelle1").Range("A65536").End(xlUp).Row
ReDim arr(z - 6, 8)
For z = 6 To z
For sp = 1 To 8
arr(z - 6, sp - 1) = Cells(z, sp)
arr(z - 6, 8) = Cells(z, 6)
arr(z - 6, 8) = Cells(z, 8)
Next sp
Next z
With Me.lstKunde
.ColumnCount = 8
.ColumnWidths = "40Pt;125Pt;100Pt;0Pt;0Pt;110Pt;0Pt;150"
.List = arr
.ListIndex = 0
End With
Jetzt möchte ich aber zunächst die Daten filtern und danach die Textbox nur mit den gefilterten Daten füllen. Wie muss ich den Code anpassen?
Bitte um Hilfe.
Vielen Dank.
Gruß aus Würzburg
Guido Ludwig