Neue Prozedur einfügen

Funktion

Diese Routine fügt in ein Modul eine neue Prozedur ein.

Code

Public Sub ProzedurEinfügen(strModulName As String, strVBACode As String)


  'Variablen deklarieren
  Dim lngZeile As Long


  With Application.VBE.ActiveVBProject.VBComponents(strModulName).CodeModule
    lngZeile = .CountOfLines + 1
    .InsertLines lngZeile, strVBACode
  End With


End Sub

Beschreibung

Es wird die Anzahl der vorhandenen Zeilen ermittelt. Am Ende des Moduls wird mit der Methode "InsertLines" die neue Prozedur eingefügt.

Verweise

Damit dieser Code funktioniert, ist folgender Verweis erforderlich:

• Microsoft Visual Basic for Applications Extensibility 5.3