Zu wenig Stapelspeicher????

• Zu wenig Stapelspeicher???? von Joachim vom 17.11.2003 18:26:02
  • AW: Zu wenig Stapelspeicher???? - von GerdW am 17.11.2003 18:28:05
    • Code von ask: - von Joachim am 17.11.2003 18:33:53
      • AW: Code von ask: - von GerdW am 17.11.2003 19:14:11
        • dankeschön - von Joachim am 17.11.2003 19:55:57
  • AW: Zu wenig Stapelspeicher???? - von Nepumuk am 17.11.2003 18:29:24
  • AW: Zu wenig Stapelspeicher???? - von DieterB am 17.11.2003 19:13:47
    • Danke - von Joachim am 17.11.2003 19:57:11
  • AW: Zu wenig Stapelspeicher???? - von Gert Seler am 17.11.2003 23:21:09

Betrifft: Zu wenig Stapelspeicher????
von: Joachim
Geschrieben am: 17.11.2003 18:26:02
Guten Tag,
och sitzt mal wieder vor einem Problem, für das ich einfach keine Lösung finden kann. In der Recherche hab ich auch geschaut, aber nix gefunden.

Der debugger sagt: "Zu wenig Stapelspeicher". Was heisst das? Was muss ich ändern?
Der Debugger regt sich über das call so auf. kann darf ich vielleicht überhaupt kein call in einem

Sub benutzen?
Hier noch kurz mein Script:



Sub fillin()
Dim letztezeile As Integer
letzteszeilecall = ActiveSheet.Range("A65536").End(xlUp).Row
fif.lz.Caption = letztezeile
If fif.d.Value = "" Then
fif.Hide
Call ask
Else
Dim art
If fif.subs.Value = True Then
art = "Substantiv"
Else
If fif.adje.Value = True Then
art = "Adjektiv"
Else
If fif.verb.Value = True Then
art = "Verb"
Else
art = "andere"
End If
End If
End If
ActiveSheet.Range("A" & letztezeile + 1).Value = fif.d.Value
ActiveSheet.Range("B" & letztezeile + 1).Value = fif.d.Value
ActiveSheet.Range("C" & letztezeile + 1).Value = art
Call ask
End If
End Sub






Vielen Dank schon mal im Vorraus und schönen Gruß, Joachim




Betrifft: AW: Zu wenig Stapelspeicher????



von: GerdW


Geschrieben am: 17.11.2003 18:28:05

Wo ist der Code von ask? Da scheint das Problem zu liegen.




Gerd




Betrifft: Code von ask:



von: Joachim






Geschrieben am: 17.11.2003 18:33:53




Sub ask()
Hi Gerd, dank, dass du mir hilfst,
Liegt es vielleicht daran, dass der im 


Sub ask wieder fillin gecalled wird?
Dim vn
vn = af.voknr.Caption
If vn = fif.lz.Caption + 1 Then
Call fillin
Else
af.sl.Visible = False
af.dl.Caption = ActiveSheet.Range("A" & vn).Value
af.sl.Caption = ActiveSheet.Range("B" & vn).Value
af.Show
End If
End Sub






Schönen Gruß, joachim




Betrifft: AW: Code von ask:



von: GerdW


Geschrieben am: 17.11.2003 19:14:11

genau, so entsteht eine Endlosschleife und der ohnehin geringe Stapelspeicher

ist schnell voll. Da musst du dir eine andere Taktik ausdenken.




Gerd




Betrifft:  dankeschön



von: Joachim


Geschrieben am: 17.11.2003 19:55:57

Aber danke für die Hilfe, bin immernoch Neuling...

Schönen Gruß, Joachim








Betrifft: AW: Zu wenig Stapelspeicher????



von: Nepumuk


Geschrieben am: 17.11.2003 18:29:24

Hallo Joachim,

schau mal hier nach: http://195.186.84.74/xlimits/limits.htm

Gruß

Nepumuk





Betrifft: AW: Zu wenig Stapelspeicher????



von: DieterB






Geschrieben am: 17.11.2003 19:13:47

hallo Joachim,




ist mir auch mal pasiert.

Bei mir lag es daran, ich hatte eine Routine in sich selber aufgerufen, quasi eine Enlosschleife produziert.




Hier rufst Du Fillin in Ask und ask in Fillin auf.




Ist das vielleicht das Problem?




Gruß




DieterB




Betrifft: Danke



von: Joachim


Geschrieben am: 17.11.2003 19:57:11

ja, das wars. Danke für eure Hilfe und schönen Gruß, Joachim






Betrifft: AW: Zu wenig Stapelspeicher????



von: Gert Seler


Geschrieben am: 17.11.2003 23:21:09

Hallo Joachim,

in der 3ten Zeile steht "letzteszeilencall" die Variable heißt aber "letztezeile"

vielleicht protestiert der "debugger" deswegen.

mfg

Gert