ich habe dieses Makro, was bisher funktionierte.
Jetzt wollte ich anstatt 10.000 eine Varible einbringen ohne Erfolg
Private Sub TextBox1_Change()
Dim Z As Long, nam, i As Long
Dim ez As Long
With ActiveSheet
ez = .Cells(3, 3).End(xlUp).Row 'die länge aus der Splate 3 bestimmen.
For Z = 3 To ez
' For Z = 3 To 10000
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
End Sub
gruß walter b