Onvoldoende stackruimte

[Stone52]

Na toevoeging van een subroutine krijg ik de melding:
"Fout 28 tijdens uitvoering onvoldoende stackruimte".

- Waar vind ik de instelling om de stackruimte te vergroten ?
- Is er een alternatief voor onderstaande code ?

Sub ControleerCelWaarde()
'
'   Controleer de waarde van de verwijzing in cel D
'       toegestane waarden:
'       kolom A t/m F
'       rij 1 t/m 31
'
If ((Mid(Range("D20"), 1, 1) = "A") Or _
    (Mid(Range("D20"), 1, 1) = "B") Or _
    (Mid(Range("D20"), 1, 1) = "C") Or _
    (Mid(Range("D20"), 1, 1) = "D") Or _
    (Mid(Range("D20"), 1, 1) = "E") Or _
    (Mid(Range("D20"), 1, 1) = "F")) And _
   ((Mid(Range("D20"), 2, 2) > 0) And _
    (Mid(Range("D20"), 2, 2) < 32)) Then
Else
    MsgBox ("Opgegeven cel-waarde is niet toegestaan")
End If

End Sub

 

[Jarodxxx]

Check deze maar eens

Hoi!

Zie testbestand

Ik gok dat je de code achter knop 2 zoekt (module 1 2e deel)

als je in kolom A-F nu gegevens invult en D20 komt overeen met 1 van deze waarden dan geeft ie aan met knop 2 dat 't klopt, of juist niet.

Veel s6

Jarod

 

[Stone52]

Jarod,

Dank voor je reactie. Ik heb nog een kleine aanpassing in de code gemaakt.
(er moet een cel-verwijzing in D20 staan, bv c11 of F31; er moet een letter EN een getal aanwezig zijn.)

Jouw en mijn code werken uitstekend in een nieuw werkblad.
Echter na toevoeging in mijn -bestaande- werkblad keert de stack-fout weer terug.

Ik zal er morgenavond verder naar kijken.
Mocht iemand een idee hebben dan verneem ik dat graag.

If (Mid(Range("D20"), 1, 1) = ("A") _
    Or (Mid(Range("D20"), 1, 1) = ("B") _
    Or (Mid(Range("D20"), 1, 1) = ("C") _
    Or (Mid(Range("D20"), 1, 1) = ("D") _
    Or (Mid(Range("D20"), 1, 1) = ("E") _
    Or (Mid(Range("D20"), 1, 1) = ("F") _
   [B] And[/B] (Mid(Range("D20"), 2, 2) > 0 And _
       (Mid(Range("D20"), 2, 2) < 32)))))))) Then
'    MsgBox ("Opgegeven cel-waarde is toegestaan")
Else
    MsgBox ("Opgegeven cel-waarde is niet toegestaan")
End If

 

[Jarodxxx]

hmmz Gekke vraag...

Post dat bestand (ge-zipped) even als je wilt, waar het probleem in optreed.

't kan haast alleen specifiek daar aan liggen.

Gruse,

Jarod

 

[Stone52]

Jarod,

Het lek is boven: de code bevond zich in een "Worksheet_Change", waarbij
-naast de controle-code die je zag- ook nog de betrokken cel in uppercase
werd gezet waardoor er een loop ontstond.

Dit verklaart de stackproblemen. Dank voor je hulp.

 

[Jarodxxx]

Met z'n allen!

Stone,

Met z'n allen komen we er wel
Da's ook 't basis principe van 't forum!

Mooi zo, weet ik dat ook even voor als 't mij overkomt.
Verscherpt mezelf ook weer!

Groeten & s6,

Jarod

 

[cor.de.kruijf]

hallo knappe koppen,
ik krijg deze foutmelding ("Fout 28 tijdens uitvoering onvoldoende stackruimte") in een zeer uitgebreid werkblad na een schone installatie van de complete computer.
Het bestand heeft altijd foutloos gefunctioneerd en doet dat op andere computers ook nog steeds!
Mijn vraag is dus eigenlijk, kan deze foutmelding een andere oorzaak hebben dan de code in het werkblad?

Met vriendelijke groet,

Cor

 

[frankwannet]

@cor.de.kruijf:

Dit topic is van een ander member en is uit Maart 2007en derhalve niet actief meer. Tevens is het niet toegestaan te meeliften in een andermans topic.
Verzoek om zelf een topic te maken met evt. een link naar dit topic ter verduidelijking.
Hoe werkt het forum: http://www.helpmij.nl/forum/showthre...k-ik-dit-forum

Deze voorzie ik nu van een slotje.

Succes.