Live-Forum - Die aktuellen Beiträge
Datum
Titel
11.09.2024 20:47:58
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

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

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

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige