Makro l�schen

27.08.2002


Dieses Beispiel demonstriert das L�schen eines bestimmten Makro's.
Dazu m�ssen alle Codezeilen abgearbeitet werden.
Der Start und das Ende des Makro's wird in einem Array gespeichert,
welcher anschlie�end verwendet wird, um die entsprechenden
Zeilen zu l�schen.

In diesem Fall wird das Makro mit dem Namen "L�schmich" gel�scht.
Falls nicht vorhanden wird eine entsprechende Fehlermeldung ausgegeben. 
Sub Makro_l�schen()
    Dim FoundFlag As Boolean
    Dim Zeilen()
    Makroname = "L�schmich"
    Suchtext = "Sub " & Makroname & "()"
    Set VBE = Application.VBE.ActiveCodePane.CodeModule
    FoundFlag = False
    With VBE
        For x = 1 To .CountOfLines
            If UCase(.Lines(x, 1)) = UCase(Suchtext) Then FoundFlag = True
            If FoundFlag Then
                Z�hler = Z�hler + 1
                ReDim Preserve Zeilen(Z�hler)
                Zeilen(Z�hler) = x
                If .Lines(x, 1) = "End Sub" Then
                    .DeleteLines Zeilen(1), UBound(Zeilen)
                    Exit For
                End If
            End If
        Next x
        If Not FoundFlag Then MsgBox "Makro " & Makroname & _
          " nicht gefunden !", vbCritical
    End With
End Sub