ich habe dieses Makro von Onur erhalten.
Funktioniert einwandfrei !
Ich möchte jetzt gern das die Anzahl der gefilterten Adressen auf der Userform Label 11, angezeigt werden.
<pre>Private Sub TextBox1_Change()
Dim Z As Long, nam, i As Long
Application.EnableEvents = False
Application.ScreenUpdating = False
ListBox1.Clear
With ActiveSheet
For Z = 3 To .Cells(.Rows.Count, 3).End(xlUp).Row ' sehr schnell- UF öffnen
nam = Cells(Z, 2) & Cells(Z, 3)
If nam <> "" And InStr(UCase(nam), UCase(TextBox1)) Then
Call AddList(i, Z)
i = i + 1
End If
Next Z
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub</pre>
gruß wolfgang