Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Solver im Makro

Forumthread: Solver im Makro

Solver im Makro
17.02.2003 11:25:16
Nadine
Hallo zusammen,

ich habe ein VBA-Makro geschrieben, das den Solver verwendet.
Funktioniert soweit, allerdings nur, wenn ich vorher unter Extras --> Verweise den "SOLVER" anklicke.

Da ich das Makro gerne verteilen möchte, brauche ich einen Code, der diesen Verweis per VBA setzt. Geht sowas?

Gruß,

Nadine.

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Solver im Makro
17.02.2003 12:05:47
L.Vira

Nach folgendem Strickmuster:
Sub Addin()

On Error GoTo ende
If AddIns("Solver").Installed = False Then
AddIns("Solver").Installed = True
Exit Sub
End If
ende:
MsgBox "Das erforderliche Add- In ''Solver'' ist nicht vorhanden!" & Chr(10) & _
"Installieren Sie das Add-In, indem das MS-Office setup ausführen! ", 64, "weise hin..."

End Sub


Anzeige
Re: Solver im Makro
17.02.2003 12:15:06
Nadine

Hallo L.Vira,

ich habe deinen Code getestet, bei mir kommt immer nur die Fehlermeldung, die du programmiert hast, obwohl bei mir das Solver-AddIn installiert ist.

Aber Achtung:
Soweit ich das sehe, würde dein Makro, wenn es funktioniert, prüfen, ob das Solver-AddIn installiert ist (das war bei mir schon der Fall). Das ist aber nicht das Gleiche, wie in VBA den Verweis auf die Solver-Bibliothek zu setzen (das war nämlich bei mir zunächst nicht der Fall, trotz installierten AddIns).

Hoffe, du kannst mir helfen.

Gruß,

Nadine.

Anzeige
Re: Solver im Makro
17.02.2003 12:26:34
Hans W. Hofmann

Ja, das geht. Hab ich hier schon des öfteren abgelegt. Schau mal im Archiv unter addFromGUID oder References...

Gruß HW

Re: Solver im Makro
17.02.2003 13:29:19
L.Vira

Dann lass doch die Fehlermeldung einfach weg:
Sub Addin()
On Error GoTo ende
If AddIns("Solver").Installed = False Then
AddIns("Solver").Installed = True
Exit Sub
End If
ende:
End Sub


Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige