Re: Excel 2002 Solver unexpected Error
From: Tom (anonymous_at_discussions.microsoft.com)
Date: 06/16/04
- Next message: Peter Wolber: "Re: Arbeitsmappe automatische aktualisieren"
- Previous message: Christian Küken: "Re: VBA- For each Schleife ?!"
- In reply to: Michael Schüller: "Re: Excel 2002 Solver unexpected Error"
- Next in thread: Michael Schüller: "Re: Excel 2002 Solver unexpected Error"
- Reply: Michael Schüller: "Re: Excel 2002 Solver unexpected Error"
- Messages sorted by: [ date ] [ thread ]
Date: Tue, 15 Jun 2004 22:32:04 -0700
>-----Originalnachricht-----
>Hallo Tom,
> ^^^^bitte in der NG kompletten Namen verwenden
>
>> ich habe folgendes Phänomen.
>> Eine Kollege von mir hat ein Macro geschrieben, in
welchem
>> er die Solver AddIn verwendet.
>> Rufe ich das Excel-Sheet direkt auf und starte die
>> Berechnung läuft alles normal. Rufe ich das Sheet über
>> einen Link aus einem Word-Dokument auf, bekomme ich
>> folgende Fehlermeldung:
>>
>> Solver: unexpected internal error occures, or available
>> memory was exhausted.
>>
>> Der Fehler existiert erst seit der Umstellung auf Excel
>> 2002.
>
>Ist das Makro mit Passwort geschützt?
>Falls ja, wird's schwer...
>Falls nein: poste bitte mal die Code-Zeile die den Fehler
auslöst.
>
>Schönen Gruß
>--
>Michael
>michael.schueller@gmx.de
>
Hallo Michael,
danke für dein reply und sorry, dass ich erst jetzt wieder
antworte (Zeitmangel).
Das Macro selber ist nicht passwortgeschützt, aber das
Word-Dokument, welches den link enthält.
Hier ist die Zeile, die die Fehlermeldung verursacht.
SolverOk SetCell:="$H$56", MaxMinVal:=3, ValueOf:="0",
ByChange:="$G$56"
Weiter habe ich noch herausgefunden, dass, wenn ich nach
Aufruf des Links im nun offenen Excel-Sheet zuerst über
Extras den Solver aufrufe und gleich wieder schliesse, die
Fehlermeldung nicht auftritt.
Des weiteren funktioniert dies
Application.ExecuteExcel4Macro String:="SOLVER.XLA!
SOLVER.OK(!Z46S8;3;0;(!Z46S7))"
Application.ExecuteExcel4Macro String:="SOLVER.XLA!
SOLVER.LÖSEN(wahr)"
auch nicht mehr und wurde ersetzt durch
SolverOk SetCell:="$g$46", MaxMinVal:=3, ValueOf:="0",
ByChange:="$h$46"
SolverOk SetCell:="$h$46", MaxMinVal:=3, ValueOf:="0",
ByChange:="$g$46"
SolverSolve (True)
Vielleicht hilft es ja bei der Fehlersuche ;-)
Noch einmal danke im Voraus.
Gruss Tom
- Next message: Peter Wolber: "Re: Arbeitsmappe automatische aktualisieren"
- Previous message: Christian Küken: "Re: VBA- For each Schleife ?!"
- In reply to: Michael Schüller: "Re: Excel 2002 Solver unexpected Error"
- Next in thread: Michael Schüller: "Re: Excel 2002 Solver unexpected Error"
- Reply: Michael Schüller: "Re: Excel 2002 Solver unexpected Error"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|