AW: Listbox füllen mit Kriterien
21.06.2006 11:04:58
Bertram
Hallo,
so gehts wenn deine Überschriften in A1, D1 und G1 stehen.
Private Sub UserForm_Initialize()
Dim i As Integer
Dim LZ As Integer
Dim Liste() As String
Dim Zähler As Integer
ReDim Liste(3, 100)
Zähler = 0
LZ = Cells(65536, 1).End(xlUp).Row
Liste(0, Zähler) = Cells(1, 1).Value
Liste(1, Zähler) = Cells(1, 4).Value
Liste(2, Zähler) = Cells(1, 7).Value
Zähler = Zähler + 1
For i = 2 To LZ
If Cells(i, 2).Value = "x" Then
Liste(0, Zähler) = Cells(i, 1).Value
Liste(1, Zähler) = Cells(i, 4).Value
Liste(2, Zähler) = Cells(i, 7).Value
Zähler = Zähler + 1
End If
Next i
ReDim Preserve Liste(3, Zähler)
ListBox1.Column() = Liste()
End Sub
Ist nicht elegant und auch unter Umständen fürs Weiterarbeiten nicht so geschickt, da die Überschriften in der Listbox keine Überschriften sind sondern Listeneinträge.
Aber zum Anzeigen gehts:-)
Gruß
Bertram