Office: Excel

Hallo zuammen,

bei der Zusammenstellung von Daten in einer Datei, die mit
Code:

geöffnet wird, werden ca. 40 Blätter erzeugt, die alle einzeln mit dem Solver durchgerechnet werden sollen.

Der aufgezeichnete Code
Code:

statet den Solver nicht. es wird bei SoverOK angehalten mit der Meldung "Sub oder Function nicht definiert."
Ich habe mich diesbezüglich auch schon umgeschaut und verschiedene Hinweise erhalten, aber noch nicht den "entscheidenden".
Was fehlt? was ist falsch??

Vielen Dank
P.

:)

 

Hey P.,

evtl. ist kein Verweis auf den SOLVER (genauer: Auf dei SOLVER.XLA) aktiviert ?

Prüfe das mal im VBA-Editor unter "Extras - Verweise".

Falls der Verweis fehlt :
Hier ein Code, mit dem Du das prüfen und den Verweis ggf. setzen kannst :

VBA-Code:

Sub Makro_xyz()     SolverVerweisAktivieren     SolverOk SetCell:="$E", MaxMinVal:=2, ValueOf:="0", ByChange:="$D:$D"     SolverSolve End Sub Sub SolverVerweisAktivieren()     'Prüft alle Verweise des aktuellen VB-Prokjektes und settt ggf. Verweis auf SOLVER.XLA     '04.07.2008, NoNet - www.excelei.de     Dim intVBRef As Integer     Dim bolRefSolver As Boolean     For intVBRef = 1 To Application.VBE.ActiveVBProject.References.Count         If UCase(Application.VBE.ActiveVBProject.References(intVBRef).Name) = "SOLVER" Then             bolRefSolver = True             intVBRef = Application.VBE.ActiveVBProject.References.Count 'Schleifenende         End If     Next     If Not bolRefSolver Then         'Verweis aktivieren - Pfadname der AddIn-Datei bitte anpassen !         Application.VBE.ActiveVBProject.References.AddFromFile _             "C:\Program Files\Microsoft Office\OFFICE11\Library\SOLVER\SOLVER.XLA"     End If End Sub

Code eingefügt mit Syntaxhighlighter 4.15

Den Pfad zur SOLVER.XLA musst Du evtl. noch anpassen ! - Viel Erfolg.

Ansonsten empfehel ich Dir auch die Lektüre dieses GOOGLE-Suchergebnisses :
http://www.google.de/search?hl=de&q=...a=lr%3Dlang_de *eek.gif*

 

Hallo NoNet,

vielen Dank für Deine Antwort und den Link!! Hat geklappt.
VBE machte noch ein Problem, kann aber über die Sicherheitseinstellungen "umgangen" werden (Zugriff auf VB-Projekt vertrauen)

Beste Grüße
Perlmann