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: