Per Makro prüfen, ob in anderer Datei Modul exist.

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Per Makro prüfen, ob in anderer Datei Modul exist. von: Tino
Geschrieben am: 04.03.2005 10:20:44

Hallo Forum,

ich brauch einen Befehl, mit dem ich prüfen kann, ob in einer per Makro von mir geöffneten Excel-Datei ein bestimmtes Modul existiert oder nicht.
Müsste ja sowas ähnliches sein wie der Löschbefehl von Modulen, oder?:

With Workbooks(OtherFileName).VBProject
.VBComponents.Remove .VBComponents(Modulname)
End With

Gruß
Tino

Bild


Betrifft: AW: Per Makro prüfen, ob in anderer Datei Modul exist. von: Heiko S.
Geschrieben am: 04.03.2005 10:59:26

Hallo

z.B. so.

Private Sub CommandButton13_Click()
Dim vbc As Object
On Error GoTo Errorhandler
With Workbooks(DeinZuPrüfendesWorkbook).VBProject
    For Each vbc In .VBComponents
        If UCase(vbc.Name) = UCase("DeinGesuchtesModul") Then
            MsgBox " Ist drin !", vbInformation
            Exit Sub
        End If
    Next vbc
End With
MsgBox "Nicht drin !", vbCritical
Exit Sub
' Bei Fehlernummer 1004, diese Meldung ausgeben.
Errorhandler:
If Err.Number = 1004 Then
    MsgBox "Das kopieren des VBA Moduls ist fehlgeschlagen!" & vbCr & _
           "Bitte über prüfen Sie folgende Einstellung! " & vbCr & _
           "EXTRAS -> MAKRO -> SICHERHEIT -> Vertrauenwürdige Quellen." & vbCr & _
           "'Zugriff auf Visual Basic Projekt vertrauen' muss aktiviert sein! ", vbCritical, _
           " Meldung vom Makro Modul kopieren!"
Else
    MsgBox "Err.Number = " & Err.Number & ".   " & Err.Description, vbCritical
End If
End Sub


Gruß Heiko

PS: Rückmeldung wäre nett !


Bild


Betrifft: SUPER!!! von: Tino
Geschrieben am: 04.03.2005 11:23:54

Danke Heiko,

funktioniert super!

Vielen Dank für die schnelle Antwort.

Gruß Tino


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Per Makro prüfen, ob in anderer Datei Modul exist."