Funktion
Diese Routine löscht eine vorhandene Prozedur.
Code
Public Sub ProzedurLöschen(strModulName As String, strProzedur As String)
'Variablen deklarieren Dim lngErsteZeile As Long Dim lngAnzZeilen As Long
With Application.VBE.ActiveVBProject.VBComponents(strModulName).CodeModule lngErsteZeile = .ProcStartLine(strProzedur, vbext_pk_Proc) lngAnzZeilen = .ProcCountLines(strProzedur, vbext_pk_Proc) .DeleteLines lngErsteZeile, lngAnzZeilen End With
End Sub
Beschreibung
Es wird die Zeile ermittelt, an der die zu löschende Prozedur beginnt. Dann wird die Anzahl der Zeilen der zu löschenden Prozedur ermittelt. Mit diesen Werten löscht die Methode "DeleteLines" die gewünschte Prozedur.
Verweise
Damit dieser Code funktioniert, ist folgender Verweis erforderlich: