Gruppe
VBE
Problem
Wie kann ich eine Zeile in einem Code-Modul während der Laufzeit austauschen?
ClassModule: Tabelle1
Private Sub cmdCodeAustauschen_Click()
Call ModulZeileTauschen
End Sub
StandardModule: basMain
Sub ModulZeileTauschen()
Dim iCounter As Integer
Call Meldung
With ThisWorkbook.VBProject.VBComponents("basMain").CodeModule
For iCounter = 1 To .CountOfLines
If .Lines(iCounter, 1) = " MsgBox ""Austauschen!""" Then
.ReplaceLine iCounter, " MsgBox ""Ausgetauscht!"""
Exit Sub
End If
Next iCounter
End With
MsgBox "Der Code wurde ausgetauscht!"
End Sub
Sub Meldung()
MsgBox "Austauschen!"
End Sub