VBA Verweis mit Makro setzen

Forumthread: VBA Verweis mit Makro setzen

Mister

Hallo und guten Morgen,
ich versuche einen VBA Verweis per VBA mit folgendem Code zu setzen:

Sub AddReference()
Dim vbProj As VBProject
Set vbProj = ActiveDocument.VBProject
vbProj.References.AddFromFile "C:\Program Files\Microsoft Office\OFFICE11\MSOUTL.OLB"
End Sub

Ich erhalte aber in der Zeile "Set vbProj....." die Fehlermneldung:
Laufzeitfehler 424 Objekt erforderlich"
Hat jemand eine Idee woran es liegt?
Gruß
Martin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: VBA Verweis mit Makro setzen

01.11.2009 08:39:30

ransi

HAllo
Ich denke es fehlt der Verweis auf Microsoft VisualBasic for Applications Extensibility 5.3Versuch mal so:
Dim vbProj As Object
Set vbProj = ThisWorkbook.VBProject
ransi

AW: VBA Verweis mit Makro setzen

01.11.2009 08:41:39

Mister

Hallo ransi,
dieser Verweis ist gesetzt!
Gruß
Martin

Option Explicit

01.11.2009 08:50:10

ransi

HAllo
Option Explicit

Sub AddReference()

Dim vbProj As VBProject

Set vbProj = activedocument.VBProject
vbProj.References.AddFromFile "C:\Program Files\Microsoft Office\OFFICE11\MSOUTL.OLB"

End Sub

ActiveDocument gibts in Excel nicht.
Da heisst das
ActiveWorkBook
ransi

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um einen VBA Verweis per Makro in Excel zu setzen, kannst du die folgende Schritt-für-Schritt-Anleitung befolgen:

Öffne den Visual Basic-Editor:
- Drücke ALT + F11, um den Editor zu öffnen.
Füge ein neues Modul hinzu:
- Klicke mit der rechten Maustaste auf 'VBAProject (deinWorkbookName)' und wähle Einfügen > Modul.

Füge den folgenden Code ein:

Sub AddReference()
   Dim vbProj As Object
   Set vbProj = ThisWorkbook.VBProject
   vbProj.References.AddFromFile "C:\Program Files\Microsoft Office\OFFICE11\MSOUTL.OLB"
End Sub

Führe das Makro aus:
- Drücke F5, um das Makro auszuführen und den VBA Verweis zu setzen.

Beachte, dass du möglicherweise die Berechtigungen in den Excel-Optionen anpassen musst, um auf die VBA Verweise zugreifen zu können.

Häufige Fehler und Lösungen

Fehler: Laufzeitfehler 424 - Objekt erforderlich
Dieser Fehler tritt auf, wenn du versuchst, auf ein Objekt zuzugreifen, das nicht existiert. Stelle sicher, dass du ThisWorkbook anstelle von ActiveDocument verwendest, da letzteres nicht in Excel existiert.
Fehler: Verweis auf Microsoft VisualBasic for Applications Extensibility 5.3 fehlt
Wenn du diesen Verweis nicht gesetzt hast, gehe zu Extras > Verweise im VBA-Editor und aktiviere den entsprechenden Eintrag.

Alternative Methoden

Du kannst auch den Verweis manuell setzen:

Gehe im Visual Basic-Editor zu Extras > Verweise.
Suche in der Liste nach dem gewünschten Verweis, z.B. Microsoft Outlook xx.x Object Library.
Setze ein Häkchen und klicke auf OK.

Praktische Beispiele

Hier sind einige praktische Beispiele, wie du VBA Verweise setzen kannst:

Outlook-Objektbibliothek hinzufügen:

Sub AddOutlookReference()
   Dim vbProj As Object
   Set vbProj = ThisWorkbook.VBProject
   vbProj.References.AddFromFile "C:\Program Files\Microsoft Office\OFFICE11\MSOUTL.OLB"
End Sub

Scripting Runtime hinzufügen:

Sub AddScriptingReference()
   Dim vbProj As Object
   Set vbProj = ThisWorkbook.VBProject
   vbProj.References.AddFromFile "C:\Windows\System32\scrrun.dll"
End Sub

Tipps für Profis

Stelle sicher, dass du die VBA Verweise nur setzt, wenn sie benötigt werden, um die Performance deines Makros nicht unnötig zu beeinträchtigen.
Verwende die Option Explicit-Anweisung am Anfang deiner Module, um sicherzustellen, dass alle Variablen deklariert sind. Dies hilft dir, Fehler zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich überprüfen, ob ein Verweis bereits gesetzt ist?
Du kannst die References-Auflistung durchlaufen und prüfen, ob der gewünschte Verweis vorhanden ist:

Dim ref As Reference
For Each ref In ThisWorkbook.VBProject.References
    If ref.Description = "Microsoft Outlook xx.x Object Library" Then
        MsgBox "Verweis ist bereits gesetzt"
    End If
Next ref

2. Was mache ich, wenn das Makro nicht funktioniert?
Überprüfe die Pfade in deinem Code und stelle sicher, dass die angegebenen Dateien vorhanden sind. Außerdem solltest du sicherstellen, dass der Verweis auf Microsoft VisualBasic for Applications Extensibility 5.3 gesetzt ist.

Beliebteste Forumthreads (12 Monate)