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.
Verder is dit een stuk van een procedure die niet werkt:
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
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