Modul im VBProject vorhanden?

Bild

Betrifft: Modul im VBProject vorhanden?
von: Andreas
Geschrieben am: 10.12.2003 18:29:27

Hallo Forum,

wie kann ich abprüfen, ob im aktuellen Workbook ein bestimmtes Modul bereits vorhanden ist? Also, irgendwie in der Richtung

If Exists(ActiveWorkbook.VBProject.VBComponents("Modul1")) Then
Do Something
Else
Do Something Else
End If

Grüße
Andreas

Bild


Betrifft: AW: Modul im VBProject vorhanden?
von: Bärnd
Geschrieben am: 10.12.2003 18:36:13

Hallo Andreas,

Dim booVorhanden as Boolean
Dim vbcTmp as VBComponent

booVorhanden = False
For Each vbcTmp in ActiveWorkbook.Components
If vbcTmp.Name = "Modul1" Then booVorhanden = True
Next cvbTmp

If booVorhanden Then
Do Something
Else
Do SomethingElse
End If

Eventuell (quick and dirty) geht auch was in der Art:
Dim strTmp$

strTmp = ""
On Error Resume Next
strTmP = ActiveWorkbook.VBProject.VBComponents("Modul1").Name
On Error Goto 0
If strTmp = "Modul1" Then
Do Something
Else
Do SomethingElse
End If

Ciao

der Bärnd


Bild


Betrifft: AW: Modul im VBProject vorhanden?
von: Andreas
Geschrieben am: 10.12.2003 18:38:50

Genau das was ich suchte, danke!


Bild

Beiträge aus den Excel-Beispielen zum Thema " Modul im VBProject vorhanden?"