Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

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

Per Makro prüfen, ob in anderer Datei Modul exist.
04.03.2005 10:20:44
Tino
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per Makro prüfen, ob in anderer Datei Modul exist.
04.03.2005 10:59:26
Heiko
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 !
Anzeige
SUPER!!!
04.03.2005 11:23:54
Tino
Danke Heiko,
funktioniert super!
Vielen Dank für die schnelle Antwort.
Gruß Tino
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige