Johannes Ungerer wrote:

Ich kann dann alles Step-by-step durchmachen – und es funktioniert.
Lass ich es aber "normal" laufen, tritt der Fehler wieder auf!

Änder das:
    If Umrechnung(ListeB)<1 then
      ListeB.Remove(UBound(ListeB))
    end if

mal in

    If Umrechnung(ListeB)<1 then
      ListeB.Remove(UBound(ListeB))
    else
      msgbox "den behalte ich"
    end if

Und, wird einer behalten?

MfG, Metti.

Antwort per Email an