Hallo

Könnte mir bitte jemand bei meinem Problem helfen ?

Dieser unten stehende code hat mir heute schon so einiges Kopfzerbrechen bereitet aber ich
stehe jetzt kurz vor dem Ziel, nachdem ich die Debugfunktion entdeckt habe. Nachdem ich die Meldung

"nicht genügend Stapelspeicher" bekommen habe hat mir der Debugmodus gezeigt, dass er sich bei der Sub packen in eine
Schleife verfangen hat aus der er nicht mehr rauskommt. Nur kann ich nicht sehen warum er da nicht mehr rauskommt.
An den Werten aus der Excel Tabelle kann es meines Achtens nicht liegen. Ich habe für Alle breiten 2 und für alle Anzahlen 5. Er müsste also jedesmal

nach fünf Durchgängen die Schleife wieder verlassen, die Abbruchbedingung ist ja null ! Oder verstehe ich irgendetwas falsch ?

Visual Basic-Quellcode

1. Public Function Kisten()
4. Dim rng1 As Range
5. Set rng1 = Worksheets("Tabelle1").Range("A1:A10")
6. Dim Kistenbreite(1 To 10) As Integer
7. Dim r As Range
8. For Each r In rng1
9. Kistenbreite(r.Row) = r.Value
11. Next
12. Dim rng As Range
13. Set rng = Worksheets("Tabelle1").Range("B1:B10")
14. Dim Kistenanzahl(1 To 10) As Integer
15. Dim r1 As Range
16. For Each r1 In rng
17. Kistenanzahl(r1.Row) = r1.Value
20. Next
21. Dim Hvb As Integer
22. Hvb = 0
23. Dim x As Integer
24. x = Worksheets("Tabelle1").Range("A11").Value
27. Dim zahlkisten As Integer
28. zahlkisten = Kistenanzahl(0)
29. Dim breitekisten As Integer
30. breitekisten = Kistenbreite(0)
32. Dim a As Integer
33. a = 0
34. Do
35. Call packen(breitekisten, zahlkisten, Hvb)
36. a = a + 1
37. breitekisten = Kistenbreite(a + 1)
38. zahlkisten = Kistenanzahl(a + 1)
39. Loop Until Hvb <= x
40. MsgBox ("Der Wert ist" & Hvb)
42. End Function
44. Public Sub packen(Breite As Integer, Anzahl As Integer, d As Integer)
45. d = d + Breite
46. Anzahl = Anzahl - 1
47. Do
48. Call packen(Breite, Anzahl, d)
49. Loop Until Anzahl = 0
50. End Sub

Bitte VB-Tag benutzen - aber richtig
Uns son übergroßer Font ist auch nicht besser lesbar.
Wichtig sind die Einrückungen.

Ein rekursiver Aufruf noch (dazu in einer Schleife) geht meistens schief, wenn man nicht weiß, was man tut
Geh den Code mal schrittweise im Debugger durch, dann merkst du schnell, wie du zu deinem Overflow kommst.


Ich tippe mal, dass die Abbruchbedingung nie erreicht wird, weil die Anzahl unter 0 geht.
Ich überlege mir jetzt nicht, ob die Schleife in Verbindung mit der Rekursion überhaupt Sinn macht, aber als Abbruchbedingung würde ich dann zumindest so eine Variante nehmen: