Re: Array Problem

[Johannes Ungerer]

Der "eigentlich wichtige" Code sieht wie folgt aus:
  Dim ListeA("a","b","c",...),ListeB() as string

  While Ubound(ListeA)>0
    ListeB.Append ListeA(i)
    ListeA.Remove(i)
    If Umrechnung(ListeB)<1 then
      ListeB.Remove(UBound(ListeB))
    end if
  Wend


Sub Umrechnung(ListeB as String) as Integer
  If ListeB=not "a" then
    Return 1
  else
    Return 0
  End if
End Sub

ListeB wird also in der Methode Umrechnung nicht verändert, trotzdem  
ist das Array hinterher leer (d.h. = –1)


Gruß,
Johannes