Dim n As Integer
        Dim f As String = bs.Filter ' Kein New String()
 
        ' Dim plz1 As String = New String(bs.Filter) ' Überflüssig
        ' Dim plz9 As String = New String(bs.Filter) ' Überflüssig
 
        If f.Length > 0 Then f = "(" & f & ") AND " 
        plz1 = f & "PLZ > 9999 And PLZ < 20000" ' hier fehlte zweites "PLZ"
        plz9 = f & "PLZ > 89999 And PLZ < 99999" ' Hier auch

VB@rchiv its the Best