Subscript out of range

[Sepp Herberger]

Hallo zusammen

ich habe einen Button der mir die Werte von Einträgen in einem Feld zusammenrechnen soll.
Das Problem die Werte stehen nicht direkt in dem Feld sondern in extra Dokumenten.
mit folgendem Script habe versuche ich die einzelnen Werte auszulesen:

While doc.Software(i) <> ""
      Set searchdoc = v.GetDocumentByKey(doc.Software(i))
      test = searchdoc.Erfassung_Software_Preis(0)
      If test = "" Then
         test = 0
      End If
      wert = wert + Cdbl(test)
      i = i + 1
   Wend

das funktioniert ja alles recht schön allerdings bekomme ich beim letzten durchlauf der Schleife ein "Subscript out of Range"  .

kann mir jemand sagen warum??
gehe ich die sache vielleicht total verkehrt an??.

Gruss

Sepp

[animate]

Tip: du kannst die Anzahl der notwendigen Durchläufe schon vor eintritt in die Schleife ermitteln. Nutze die Funktionen LBound und Ubound

[Axel]

Hi,

ich würde das mit eine For/Next - Schleife machen. Damit bist du auf der sicheren Seite.


For i = 0 to UBound(doc.Software)
      Set searchdoc = v.GetDocumentByKey(doc.Software(i))
      test = searchdoc.Erfassung_Software_Preis(0)
      If test = "" Then
         test = 0
      End If
      wert = wert + Cdbl(test)
Next

Axel

[Sepp Herberger]

Hallo

hat super funktioniert.

Dankeschön.

[Axel]

Hi,

setzt du das Posting bitte noch auf "Erledigt".

Danke.


Axel

[Sepp Herberger]

OK