Hi,
Ich habe mein Projekt nun mal auf Excel 2003 ausprobiert, anstelle von Excel 97. Bei einer Funktion bekomme ich immer den Fehler "Nicht genügend Stapelspeicher. Woran liegt das, was kann ich dagegen tun?
Das ist die Function, indem man ein checkboxclick durchführt, werden alle Checkboxen aktiviert u. bei einem weiten klick deaktiviert:
Private Function chkBoxClick()
If BoxGesch1.Value = True And _
BoxGesch2.Value = True And _
BoxGesch3.Value = True And _
BoxGesch4.Value = True Then
BoxGesch1.Value = False
BoxGesch2.Value = False
BoxGesch3.Value = False
BoxGesch4.Value = False
CheckBox1.Value = False
Exit Function
End If
If BoxGesch1.Value = False And _
BoxGesch2.Value = False And _
BoxGesch3.Value = False And _
BoxGesch4.Value = False Then
BoxGesch1.Value = True
BoxGesch2.Value = True
BoxGesch3.Value = True
BoxGesch4.Value = True
CheckBox1.Value = True
Exit Function
End If
BoxGesch1.Value = True
BoxGesch2.Value = True
BoxGesch3.Value = True
BoxGesch4.Value = True
CheckBox1.Value = True
End Function |