Na macro runnen verdwijnt invoegtoepassing

[Moesappel]

Hallo,

Van deze site:
http://www.real-statistics.com/free-download/real-statistics-resource-pack/,
haal ik een invoegtoepassing, voor meerdere functies in excel.

Als ik onderstaande macro run, krijg ik verschillende foutmeldingen. maar meestal is daarna opeens de invoegtoepassing verdwenen.
Kan ik dit op één of andere manier voorkomen, of ligt die aan mijn code?

Een foutmelding is bijvoorbeeld dat Workbooks.Open functie niet meer werkt,
maar ook dat WorksheetFunction.Min niet werkt.
Maar dit komt dus doordat de functies uit de invoegtoepassing niet meer werken en daardoor berekeningen op mijn tabblad niet meer werken.

Sub Macro1()

Dim x, y As Integer
Dim myData As Workbook
Dim V1 As Variant
Dim V2 As String
                                        'aanmaken nieuw excelbestand
Set newbook = Workbooks.Add
    With newbook
        .SaveAs Filename:="C:\(LOCATIE).xlsx"
    End With
    ActiveWorkbook.Close True
                                        'Activeren van geopend bestand
Workbooks("test").Activate
Worksheets("nummer").Select
NumRows = Range("F3", Range("F3").End(xlDown)).Rows.Count
                                        'in tabblad 'data' wordt in cel A5 de waarde
                                        'van cel F2 uit tabblad 'nummer' geplaatst
For x = 1 To NumRows
    With Worksheets("nummer").Range("F2")
    Worksheets("Data").Range("A5") = .Offset(x, 0)
    End With
                                        'waarden worden verandert
    Worksheets("keuze").Select
    For y = 1 To 8
        Range("C2:E2").Value = Range("X2:Z2").Offset(y - 1, 0).Value
        Cells(1 + y, 23).Value = Range("M28").Value
    Next
    Range("W11").Value = WorksheetFunction.Min(Range("W2:W9"))
    Range("X11").Value = WorksheetFunction.VLookup(Range("W11"), Range("W2:Z9"), 2, False)
    Range("Y11").Value = WorksheetFunction.VLookup(Range("W11"), Range("W2:Z9"), 3, False)
    Range("Z11").Value = WorksheetFunction.VLookup(Range("W11"), Range("W2:Z9"), 4, False)
    Range("C2").Value = Cells(11, 24).Value
    Range("D2").Value = Cells(11, 25).Value
    Range("E2").Value = Cells(11, 26).Value
                                        'variabelen krijgen een waarde of bereik
    V1 = Range("V53:Y56")
    V2 = Range("A1")
                                        'bestand dat aan het begin werd aangemaakt
                                        'wordt geopend en variabelen worden hier
                                        'ingezet op bepaalde plek
    Set myData = Workbooks.Open("C:\(LOCATIE).xlsx")
    RowCount = 5 * x - 1
    With Worksheets("Blad1").Range("A1:D4")
        .Offset(RowCount + x - 2, 1) = V1
    End With
    With Worksheets("Blad1").Range("A1")
        .Offset(RowCount + x - 3, 0) = V2
    End With
ActiveWorkbook.Close True
Next
'

End Sub

Bekijk bijlage test2.zip

 

[edmoor]

Als je een invoegtoepassing toevoegt moet je daarna eerst Excel afsluiten, anders zal deze er na een fout inderdaad niet meer in zitten.
Als je daarna tegen een fout aanloopt kunnen we verder kijken.
Laat ook weten welke versie van Office je gebruikt.

 

[Moesappel]

Dat heb ik ook geprobeerd, maar zonder succes. Er komen alsnog foutmeldingen.

Ik gebruik Office 2010.

 

[edmoor]

Ik doelde ook op het verdwijnen van de invoegtoepassing.
De fouten kunnen we naar kijken als de invoegtoepassing niet meer verdwijnt.
Maar als je zegt fouten te krijgen en deze er niet bij verteld kunnen we er helemaal niets mee.

 

[Moesappel]

Dit is de foutmelding, die ik nu krijg:

'Fout 1004 tijdens uitvoering: Eigenschap Min van klasse WorksheetFunction kan niet worden opgehaald.'

Dit terwijl hij al 6 keer de code runde, waar hij wel werkte. (x is zegmaar bij 7, x=7)
Daarna loopt Excel vast, en kan ik eigenlijk alleen maar Excel sluiten (zonder op te slaan).
Als ik dan Excel weer open is de invoegtoepassing verdwenen (en moet ik deze weer opnieuw invoegen).

 

[edmoor]

Plaats je document en de invoegtoepassing, dan wil ik wel even kijken.

 

[Moesappel]

Doordat mijn bestand vertrouwelijke data inleest uit een ander bestand, en daar het hele bestand op gebaseerd is (wat ook veel 'rekenkracht' kost),
kan ik het jammer genoeg niet hier openbaar plaatsen.

Ik zal nog even kijken of ik een look-a-like bestand kan maken.

Wat ik zelf denk aan mogelijke oorzaken is:
- De pc kan misschien de vele berekeningen niet aan.
- de invoegtoepassing is niet precies zo geïnstalleerd, zoals op de site wordt aangegeven. (maar omdat ik de toepassing nu al gedownload heb, kan ik dat niet herstellen)
(Dit stond namelijk op die site: Caution: once you install the resource pack at a particular location it will be more difficult to move it later.)

In ieder geval bedankt voor je tijd.