Zu wenig Stapelspeicher????
17.11.2003 18:26:02
Joachim
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