VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Code aufrufen und löschen

Gruppe

VBE

Bereich

Prozedur

Thema

Code aufrufen und löschen

Problem

Wie kann ich eine aufgerufene Sub-Routine nach dem Aufruf löschen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




ClassModule: Tabelle1

Private Sub CommandButton1_Click()
    Call AufrufUndLoeschen
End Sub

StandardModule: basMain

Sub Meldung()
   MsgBox "Hallo " & Application.UserName
End Sub

Sub AufrufUndLoeschen()
   Dim iStart As Integer, iLen As Integer
   Call Meldung
   With ThisWorkbook.VBProject.VBComponents("basMain").CodeModule
      iStart = .ProcBodyLine("Meldung", 0)
      iLen = .ProcCountLines("Meldung", 0)
      .DeleteLines iStart, iLen
   End With
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen VBE und Prozedur