procedures starten maar 50%

Status
Niet open voor verdere reacties.

mcccm

Nieuwe gebruiker
Lid geworden
13 okt 2010
Berichten
2
Beste helpers,

Ik zit met het volgende probleem
Bij het schrijven van een procedure bleek de procedure te lang te worden (foutmelding). Omdat de module groter was dan 64k heb ik vervolgens de verschillende procedures ook in verschillende modules geplaatst. Deze wil ik graag bij het opstarten van Excel starten en ook laten werken bij de wijziging van bepaalde cellen.
Nu is het vreemde dat dit voor 2 van de 4 goed gaat, maar bij de andere 2 dus niet. De procedures zijn echter vrijwel identiek (verwijzingen naar andere naamcellen en andere afbeeldingen, verder gelijk). De procedures werken overigens allemaal wanneer ik ze handmatig start.
Onderstaand zie je de code hoe ik nu de boel op probeer te starten. De eerste 2 werken niet, de 2e 2 werken wel.

Code:
Private Sub Macro1()

    Call Module2.Proc2AFund
    Call Module3.Proc2BSkelet
    Call Module4.Proc2CDak
    Call Module5.Proc2DGevel

End Sub

Verder is dit een stuk van een procedure die niet werkt:

Code:
Public Sub Proc2BSkelet()
    
    If Range("SkeletBasis") >= 100 And Range("SkeletBasis") <= 200 Then
        ActiveSheet.Shapes("Afbeelding 1280").Visible = True
        ActiveSheet.Shapes("Afbeelding 1281").Visible = True
        ActiveSheet.Shapes("Afbeelding 1282").Visible = False
        ActiveSheet.Shapes("Afbeelding 1283").Visible = False
    ElseIf Range("SkeletBasis") >= 201 And Range("SkeletBasis") <= 400 Then
        ActiveSheet.Shapes("Afbeelding 1280").Visible = True
        ActiveSheet.Shapes("Afbeelding 1281").Visible = True
        ActiveSheet.Shapes("Afbeelding 1282").Visible = True
        ActiveSheet.Shapes("Afbeelding 1283").Visible = True
    End If
    
End Sub

Ik heb ook al geprobeerd om in de "opstartmacro" te verwijzen naar de specifieke cellen en met de vervolgactie om de procedure op te starten, maar ook dit is me niet gelukt.
Ik heb geen idee meer hoe ik verder moet dus alle hulp is welkom.

Groeten,
Michiel
 
Die ActiveSheet uit jouw geplaatste code is op dat moment ook de ActiveSheet?

Al met F8 stap voor stap de boel doorgelopen?
 
Ik was vergeten het besturingselement te koppelen aan een macro in Excel.

Dank voor de reactie, maar ik ben er uit!

Groeten,
Michiel
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan