Macro Macro löschen
28.06.2005 11:41:58
Franz
Leider funktioniert das gute Ding nicht :-(
Sub Makro_löschen()
Dim FoundFlag As Boolean
Dim Zeilen()
Makroname = "meinmacro"
Suchtext = "
Sub " & meinmacro & "()"
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 " & meinmakro & _
" nicht gefunden !", vbCritical
End With
End Sub
Bitte um Hilfe