Hi,
versuchs mal so:
Dim arrLeser() As String
i=0
'###################################
Forall s In itemLeser.Values
'Hier Feld ZGLeser nach der Person durchsuchen
If s <> strCNUser Then
Redim Preserve arrLeser(i)
arrLeser(i) = s
End If
i=i+1
End Forall
itemLeser.Values = arrLeser
Axel