Excel VBA - VBA-gesteuerte Manipulation von VBA-Co

Sub Start() ' Start-Prozedur Dim Result As Double: Result = 0 Application.VBE.ActiveCodePane.CodeModule.replaceline 2, "myTest = 2" MsgBox myTest ' ergibt 2, wie erwartet ' sind an dieser Stelle eventuell weitere Schritte erforderlich? (Update/Recompile) Application.VBE.ActiveCodePane.CodeModule.replaceline 2, "myTest = 3" MsgBox myTest ' ergibt 2 anstelle von 3 End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Function myTest() As Variant ' wichtig: dies ist die 3. Zeile im VBA-Modul! myTest = 3 End Function Sub Start() Start_ 0 End Sub Sub Start_(intIndex%) Dim Result As Double: Result = 0 With Application.VBE.ActiveCodePane.CodeModule If intIndex = 0 Then .replaceline 4, "myTest = 2" ElseIf intIndex = 1 Then .replaceline 4, "myTest = 3" End If End With MsgBox myTest ' ergibt 2, wie erwartet If intIndex < 1 Then _ Application.OnTime Now + TimeSerial(0, 0, 1), "'Start_ 1'" End Sub

Option Explicit Function myTest(i As Integer) As Variant ' wichtig: dies ist die erste Zeile im VBA-Modul! 'Ersetzungszeile End Function Sub Start() ' Start-Prozedur Dim Result As Double: Result = 0 Application.VBE.ActiveCodePane.CodeModule.ReplaceLine 4, "myTest = 2 + i" MsgBox myTest(0) ' ergibt 2, wie erwartet ' sind an dieser Stelle eventuell weitere Schritte erforderlich? (Update/Recompile) Application.VBE.ActiveCodePane.CodeModule.ReplaceLine 4, "myTest = 2 + i" MsgBox myTest(1) ' ergibt 2 anstelle von 3 End Sub

…Harry,
wie du's dir vorstellst, da hat Tino recht, denn dazu muss neu kompiliert wdn, was aber erst nach Abschluss des 1.Durchlaufs geschieht. Ich hatte Derartiges noch/schon unter Xl9 ausprobiert und dabei festgestellt, dass man die Initialisierung/Änderung einer Prozedur und ihren Aufruf nicht in derselben Prozedur unterbringen kann. Hier reduziert sich das allerdings auf weitere Aufrufe, der 1.akzeptiert die initialisierende Änderung noch. Das so etwas kontraproduktiv ist, merkt man schon daran, dass sich die SubProz nach der 1.Änderung nicht mehr anhalten lässt.
Du benötigst also für jede Änderung einen eigenen Aufruf, zB so:

Option Explicit
Function myTest()   'Fkt m.WechselZeile
Rem WechselZeile
End Function
Sub RufMTS2()   '1.Start-RufProzedur
Call MyTestStart("myTest", " = 2", 1)
End Sub
Sub RufMTS3()   '2.Start-RufProzedur
Call MyTestStart("myTest", " = 3", 1)
End Sub
Rem parametrierte Start-Prozedur
Sub MyTestStart(ByVal naRelFkt$, ByVal ErgZuweis$, Optional ByVal prozTyp As Long)
Const relZlVsatz As Long = 1, txProzArt$ = "Sub Function Property", _
txWxZl$ = vbTab & "Rem WechselZeile"
Dim Result As Double, relZl As Long, prozArt As String
prozArt = Split(txProzArt)(prozTyp)
With Application.VBE.ActiveCodePane.CodeModule
relZl = .ProcStartLine(naRelFkt, vbext_pk_Proc)
While InStr(.Lines(relZl, 1), prozArt) = 0: relZl = relZl + 1: Wend
.ReplaceLine relZl + relZlVsatz, vbTab & naRelFkt & ErgZuweis
Result = Evaluate(naRelFkt & "()"): MsgBox CStr(Result)
.ReplaceLine relZl + relZlVsatz, txWxZl
End With
End Sub

Da ich nicht davon ausgehe, dass das eigentliche Problem so simpel ist, scheint mir Luschis Lösung hier auszuscheiden und eine generelle Feststellung dazu angebrachter.
Allerdings vermute ich, dass der Hintergrund dieser Frage anders aussieht als es den Anschein hat und das eigentliche Problem eines sein könnte, das besser anders gelöst wdn sollte.
Gruß, Luc :-?
Besser informiert mit …

Hallo Luc :-?,
sorry, habe Deinen umfangreichen Beitrag natürlich auch gesehen u. möchte mich auch bei Dir herzlich dafür bedanken! Die Möglichkeit über Evaluate oder über Excel-Funktionen hatte ich auch schon geprüft aber verworfen, weil ich ursprünglich eine möglichst direkte Kopplung mit dem VBA-Code wollte.
Z. B. sollte beim String mit dem Bool'schen Ausdruck "Fritz = 1 AND Franz = 2" auf die Public-VBA-Variablen "Fritz" und "Franz" zugegriffen werden. Das wäre möglich, falls sich der VBA-Code dynamisch aktualisieren ließe. Die damit verbundenen Möglichkeiten wären absolut großartig.
Sehr wertvoll für mich ist die Information von Euch, dass ein ReCompile der gleichen Funktion zur Laufzeit nicht mehrfach möglich ist. D. h. ich kann die VBA-Code-Manipulation als Lösungsoption ausschließen u. meine Energie auf andere Möglichkeiten fokussieren.
Nochmals herzlichen Dank!
Harry

	A	B	C	D	E
1	VariablenNamen	FmlText	Ergebnis	*ZellFml*
2	alpha	beta	a<25&b>10	(a=25, b=11)=Falsch	⇒T2Form(C2;;alpha;beta)
3	25	11	a<25\|b>10	(a=25, b=11)=Wahr	⇒T2Form(C3;;alpha;beta)

VariablenNamen

FmlText

Ergebnis

ZellFml

alpha

beta

a<25&b>10

(a=25, b=11)=Falsch

⇒T2Form(C2;;alpha;beta)

a<25|b>10

(a=25, b=11)=Wahr

⇒T2Form(C3;;alpha;beta)

Beliebteste Forumthreads (12 Monate)

Excel VBA - VBA-gesteuerte Manipulation von VBA-Co

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread