VBE-Programmierung
Befehl / Beispiele Beschreibung
Application.VBE.ActiveVBProject.References.AddFromGuid Benötigte Bibliothek für VBE-Programmierung aktivieren
Beispiel:
      Sub VBEAktivieren()
      '+----------------------------------------------------------+
      '|  Benötigte Bibliothek für VBE-Programmierung aktivieren  |
      '+----------------------------------------------------------+
          Dim VBEobj As Object
          On Error Resume Next
          'Bibliothek Microsoft Visual Basic for Application Extensibility 5.3 "VBIDE"
          VBEobj = Application.VBE.ActiveVBProject.References. _
                   AddFromGuid("{0002E157-0000-0000-C000-000000000046}", 5, 3)
      End Sub
VBEobj.Remove VBEobj("VBIDE") VBE-Programmierung deaktivieren
Beispiel:
      Sub VBEDeaktivieren()
      '+------------------------------------------------------------+
      '| Benötigte Bibliothek für VBE-Programmierung deaktivieren |
      '+------------------------------------------------------------+
          Dim VBEobj As Object
          On Error Resume Next
          Set VBEobj = Application.VBE.ActiveVBProject.References
          VBEobj.Remove VBEobj("VBIDE")
      End Sub
VBEobj.Remove VBEobj("VBIDE") Prozedur in ein Modul hinzufügen
Beispiel:
      Sub ProzedurHinzufügen()
      '+----------------------------------------------+
      '|  Schreibt eine neue Prozedur 'DatumUndZeit'  |
      '|  in das Modul 'Modul1' und startes es        |
      '+----------------------------------------------+
          Dim ProgText As CodeModule
          Dim Zeile As Integer

          Set ProgText = ThisWorkbook.VBProject.VBComponents("Modul1").CodeModule
          Zeile = ProgText.CountOfLines + 1
          ProgText.InsertLines Zeile, "Sub DatumUndZeit()" & vbCr & _
                                      "    Msgbox ""Datum und Uhrzeit: " & Now & "!"" " & vbCr & _
                                      "End Sub"
          Application.Run "DatumUndZeit"
      End Sub