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."