Eintrag aus Leserfeld löschen

[dirk_2909]

@All

Ich will aus einem Leserfeld einen Eintrag löschen.
Ich habe dafür einen Agenten geschrieben. Hier ein Teil des Codes:

i=0
merk=-1
      '###################################
      Forall s In itemLeser.Values
         'Hier Feld ZGLeser nach der Person durchsuchen
         If s = strCNUser Then
            merk=i
         End If
         i=i+1
      End Forall
      If merk >= 0 Then
         'und Eintrag entfernen
         
         itemLeser.Values(merk)=""
      End If
......

Ich kann den Agenten aber nicht speichern. Er gibt mir immer hier einen Fehler aus => itemLeser.Values(merk)=""

Was habe ich falsch gemacht? Wie muß es richtig heißen?
Oder geht es einfacher??      

[Axel]

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

[dirk_2909]

@Axel

Super hat sofort gefunzt nachdem ich den Zähler in der Bedingung
hochgezählt habe