VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zellinhalt während der Laufzeit in Prozedur übernehmen

Gruppe

VBE

Bereich

Prozedur

Thema

Zellinhalt während der Laufzeit in Prozedur übernehmen

Problem

Wie kann ich einen Zellinhalt während der Laufzeit in eine Prozedur übernehmen und wirksam werden lassen?

Lösung

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




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