---

Hallo,

wie lautet die Code-Zeile in VBA,
wenn ich wissen will, ob ein Modul mit den Namen
XYZ vorhanden ist.
Vielen Dank im voraus.

Mfg
Michael

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Michael,

mit einer Zeile geht das nicht.

Code:

---

Public Sub test()
    Dim objModul As Object
    With ThisWorkbook.VBProject
        For Each objModul In .VBComponents
            With objModul.CodeModule
                If .Find("Sub Testmakro()", 1, 1, _
                    -1, -1, True, False, True) Then
                    MsgBox "Hab's gefunden!"
                    Exit For
                End If
            End With
        Next
    End With
End Sub

---

------------------
Gruß
Nepumuk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Halt,

das Makro sucht in allen Modulen nach einer bestimmten Zeichenkette. Nach einem bestimmten Modul suchen geht so:

Code:

---

Public Sub test()
    Dim objModul As Object
    With ThisWorkbook.VBProject
        For Each objModul In .VBComponents
            If objModul.Name = "XYZ" Then
                MsgBox "Hab's gefunden!"
                Exit For
            End If
        Next
    End With
End Sub

---

------------------
Gruß
Nepumuk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nepumuk,

ich danke dir, für deine schnelle Hilfe.

Gruss
Michael

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP