Vorhandene Prozedur löschen

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:

• Microsoft Visual Basic for Applications Extensibility 5.3