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.
