Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Per Makro prüfen, ob in anderer Datei Modul exist."
Bereich aus anderer Tabelle für 2 Sekunden anzeigen Suchbegriff-Fundstelle mit anderer Zelle multiplizieren
Einer Zeichenfolge eine zweite in anderer Schriftart hinzufügen Bei Zellauswahl Wert aus anderer Zelle eintragen
Bei Eingaben prüfen, ober der Wert schon in anderer Tabelle Werte in zweiter Tabelle in anderer Reihenfolge darstellen