Code übersetzen
05.07.2007 08:27:00
jimmypikfein
kann jemand den u. g. Code übersetzen?
Private Sub TextBox1_Change()
Dim arr() As Variant
Dim index As Long, iCount As Long
x = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)
If TextBox1.Value = "" Then
ListBox1.RowSource = "A5:B" & x
Exit Sub
End If
ListBox1.RowSource = ""
ListBox1.Clear
For index = 5 To x
If LCase(Left(Cells(index, 1), Len(TextBox1))) = LCase(TextBox1) Then
If Sheets("Tabelle1").Cells(index, 1) "" Then
ListBox1.AddItem Cells(index, 1)
ListBox1.List(iCount, 1) = Cells(index, 2)
' On Error Resume Next
' ReDim Preserve arr(0, 0 To iCount)
' arr(0, iCount) = Cells(index, 2)
' ListBox1.Column = arr
iCount = iCount + 1
End If
End If
Next
End Sub
Vielen Dank im voraus
Gruß
Ahmadian