Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: Tabelle1

Sub Aufruf()

End Sub

Sub DialogeStarten()
   Dim lRow As Long
   Dim sTxt As String
   sTxt = "  Call " & Range("A1").Value
   With ThisWorkbook.VBProject.VBComponents("Tabelle1").CodeModule
      lRow = .ProcBodyLine("Aufruf", 0) + 1
      .replaceline lRow, sTxt
      Call Dialoge
      Call Aufruf
   End With
End Sub

Private Sub Dialoge()
   frmTest.Show
End Sub

Private Sub cmdStart_Click()
   Call DialogeStarten
End Sub

ClassModule: frmDialog

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

ClassModule: frmTest

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

    

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