Ich habe mehrer Listboxen und darüber die beiden Textboxen,
nun möchte ich bei der 3.Listbox die Daten in in der Listbox3
gelöscht haben wie bei dem Change Ereignis der Textbox1+2.
Habe das Makro auch über Google kopiert es klappt soweit sonst alles.
Mein Label1 anstelle der Textbox2,
WIE geht das ?
Private Sub TextBox2_Change()
Dim arr() As Variant
Dim index As Long, iCount As Long
X = IIf(IsEmpty(Range("K65536")), Range("K65536").End(xlUp).Row, 65536)
If TextBox2.Value = "" Then
ListBox2.RowSource = "K2:K" & X
Exit Sub
End If
ListBox2.RowSource = ""
ListBox2.Clear '!!! hiermit geleert
For index = 2 To X
If LCase(Left(Cells(index, 11), Len(TextBox2))) = LCase(TextBox2) Then
If Sheets("VK").Cells(index, 11) "" Then
On Error Resume Next
ReDim Preserve arr(0, 0 To iCount)
arr(0, iCount) = Cells(index, 11)
iCount = iCount + 1
ListBox2.Column = arr
End If
End If
Next
End Sub
mfg walli