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