---

Hallo,

kann ich irgendwie eine Sub-Routine eines anderen Projektes starten?

Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Du musst einen Verweis auf das Projekt mit der Sub machen und schon kannst du es aufrufen.

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für die rasche Antwort....

Folgendes Problem dabei:
Ich möchte gerne aus einem DVB Modul (mod1.dvb) ein weiteres Modul laden (LoadDvb mod2.dvb) und in diesem eine Routine des mod1.dvb Moduls starten.
Der Verweis sollte also dynamisch gesetzt werden.....

Wenn ich den Verweis manuell setze erhalte ich immer die Meldung:
Name in Konflikt mit vorhandenem Modul, Projekt oder vorhandener Objektbibliothek...

Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

sowas?

Code:

---

Sub asdf()
    Dim x%, s$, flag As Boolean
    s = "d:\cad\dvbs\acad_durchsichtig.dvb"
    With VBE.vbprojects
        For x = 1 To .Count
            If ucase(.Item(x).FileName) = ucase(s) Then flag = 1
        Next
    End With
    If Not flag Then LoadDVB s
    '''RunMacro "Modul1.Acad_normal"
End Sub

---

Gruss Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Noch nicht ganz.....

Geladen ist mein Projekt bereits - ein Macro kann ich nun auch ausführen (RunMacro mit Modul usw unter Hochkomma...) - aber immer noch keine Subroutine mit einem Parameter...

Vielleicht gibts da noch einen kleinen Hinweis.

Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hi und na servus,

Wenn du einen Verweis auf das Projekt hast geht es so:

Code:

---

    Dim WebText As String
    'Rückgabewert=Projekt.Modul.Function (Parameter)
    WebText = Blockinfo.modul_web.WebDownload("http://www.ib-stelberg.de/programme/blockinfo/blockinfo.rel")
    Debug.Print WebText

---

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für alle Infos.

Jetzt hab ichs...

NaServus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@naservus03

Und wie hast du es jetzt gelöst 
Vielleicht brauchs ja noch einer. 

Schönes WE
Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

genau ...
... je Lösung ist eine Anregung für andere Lösungen.

Gruß giman

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi  naservus03,

Mich würde es auch interessieren, wie du es zum Laufen bekommen hast. Insbesondere, wie du den Verweis via Code erstellst.

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

VBAIDE -> tools -> References -> .dvb anwählen
.dvb muß natürlich schon gespeichert sein... :-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi d.balogh,

Es ging hier eigentlich darum, das Modul dynamisch zu laden. Das heisst, das der Verweis auch dynamisch erstellt wird und nicht vorher in der DVB gespeichert wird.

Zitat:

---

Ich möchte gerne aus einem DVB Modul (mod1.dvb) ein weiteres Modul laden (LoadDvb mod2.dvb) und in diesem eine Routine des mod1.dvb Moduls starten.
Der Verweis sollte also dynamisch gesetzt werden.....

---

Kennst du einen Weg, das dynamisch zu erledigen und nicht von Hand (wie du es in deiner Antwort geschrieben hast?!

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Carsten,

bin inzwischen auch drauf gekommen :-)
Also ich wollte ein generelles dvb schreiben, was die üblichen Speicherorte für meine Sachen in jedes Project einliest.
die Mainprocedure ist in einem beliebigen Project und ruft die Funktion get_reference_data auf, welche bei einem Fehler den Wert False bekommt.
Ich konnte hierzu die dynamische Refernz folgenderweise setzen:

Sub MainProcedure()
Dim ThisVBAPath As String
ThisVBAPath = Replace(Application.VBE.ActiveVBProject.FileName, Application.VBE.ActiveVBProject.Name & ".dvb", "", , , vbTextCompare)
For Each myref In Application.VBE.ActiveVBProject.References
    If myref.Name = "InitialData" Then
        Application.VBE.ActiveVBProject.References.Remove myref
        End If
    Next
Application.VBE.ActiveVBProject.References.addfromfile ThisVBAPath & "Initialdata.dvb"
If InitialData.get_reference_data = False Then
    MsgBox "Initialization Failed... Cannot Continue.", , "Read Reference Data"
    Exit Sub
    End If
End Sub

wieder das Thema verfehlt? :-)

Lg,
Daniel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Daniel,

Das sollte keine Kritik sein.
Ich war nur wegen der Antwort verwundert, die nicht ganz passte, wobei der letzt Beitrag schon fast zwei Jahre alt ist.

Also nix für Ungut. Und danke für die Antwort mit dem Code. 

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hab's auch nicht als Kritik aufgefasst :-)

Bin nur neu in VBA, und war mir nicht sicher, ob es sich um das gleiche handelt :-D
LG,
Daniel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP