Listbox mit SUMPRODUCT
19.02.2008 11:23:00
Frederic
kann ich in einer Listbox sagen, er soll aufgrund eines Suchkriteriums eine Art SUMPRODUCT errechnen?
Beispiel:
Meine Daten, die die Listbox bezieht, sind in dem Sheet "Liste" enthalten, hier der Code mit Suchfunktion:
Private Sub TextBox2_Change()
Sheets("Liste").Visible = True
Sheets("Liste").Select
Dim arr() As Variant
Dim Index As Integer
Dim iCount As Integer
Dim X As Long
X = Sheets("Liste").Cells(Rows.Count, "A").End(xlUp).Row
If TextBox2.Value = "" Then
ListBox1.RowSource = "A7:H" & X
Exit Sub
End If
ListBox1.RowSource = ""
ListBox1.Clear
iCount = 0
For Index = 3 To X
If LCase(Left(Cells(Index, 9), Len(TextBox2))) = LCase(TextBox2) Then
If Sheets("Liste").Cells(Index, 9) "" Then
On Error Resume Next
ReDim Preserve arr(7, iCount)
arr(0, iCount) = Cells(Index, 1).Value
arr(1, iCount) = Cells(Index, 2).Value
arr(2, iCount) = Cells(Index, 3).Value
arr(3, iCount) = Cells(Index, 4).Value
arr(4, iCount) = Cells(Index, 5).Value
arr(5, iCount) = Cells(Index, 6).Value
arr(6, iCount) = Cells(Index, 7).Value
arr(7, iCount) = Cells(Index, 8).Value
iCount = iCount + 1
ListBox1.Column = arr
End If
End If
Next
Sheets("Liste").Visible = xlVeryHidden
End Sub
Nun möchte ich ihm gerne sagen, dass wenn ich in der Textbox eine "1" eingebe, soll er im Sheet "Liste" ein SUMPRODUCT erstellen und mir dieses in einer TextBox3 anzeigen.
Ist das möglich?
Danke für Eure Hilfe.
Frederic
Anzeige