Zahlenwert in Zahlenfeld schreiben

[Milamber]

Hallo zusammen, ich hab ein kleines Problem hier.

folgender Code (Ausschnitt):
   Dim item As notesitem
   Dim wert As Variant
   Dim NeuerWert As Variant   
   Dim ZahlWert() As Single
   

   Set item = doc.GetFirstItem(FELD1)
   Wert = item.values
   item.Remove

   
   Dim ZahlNeu List As Double
   Dim x As Integer
   

' X soll zeigen, dass ein bestimmer Wert nicht übernommen werden soll.
' X = 0 ist nur ein Bsp. Der Wert wird dynamisch ermittelt
   
      For x=0 To Ubound(wert)
         if not x = 0 then
            ZahlNeu (x)  = wert(x)
         end if
      Next

   Call doc.ReplaceItemValue(FELD1, ZahlNeu)


Als Ergbnis steht im Feld der Wert 0 obwohl es mehrere sein sollte.
Die Feldeigenschaften stimmen.
   

Sinn der Sache ist.

Der User möchte einen Wert aus der Liste löschen. Dieser wird mit X angegeben.
Ich baue dann die Liste neu auf, indem ich jeden Eintrag prüfen und X weglasse.

Jemand ne Idee wo der Fehler ist?
Mach ich das gleiche aber mit Text statt Zahlen, dann klappt es wunderbar.

Habt Dank :-)


      

[koehlerbv]

Da muss aber noch eine Fehlermeldung kommen - Du kannst keine List in ein Item schreiben. Was Du hierfür brauchst, ist ein Array.

HTH,
Bernhard

[Milamber]

Nein da kommt gar kein Fehler. Es macht es mit ner 0.

[Milamber]

danke hat sich erledgt. hab ein dynamisches array eingebaut.