Gruppe
VBE
Problem
Wie kann ich einen Zellinhalt während der Laufzeit in eine Prozedur übernehmen und wirksam werden lassen?
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