VBA code durch VBA ändern
20.01.2004 07:30:13
Chris b
Hallo Excel Profis,
habe eine frage und zwar weiß ich das ich mit VBA den VB Code ändern kann dazu habe ich diesen unten stehenden Code:
Probelm ist aber dieser Code ändert nur das VBA Projekt in dem er auch steht wegen dem Activecodepane glaube ich.
Ist es Möglich wenn z.B der code der geändert werden soll im Modul1 steht und der VBA code der das ändern aufruft im Modul2 das da auch geht?
Für eure Hilfe wäre ich euch sehr dankbar Christian
'Code soll im Modul1 sein (Momentan sind beide Codes im Modul1)
Const SuchZeile = " MsgBox ""VBA macht Spaß !"""
Const NeueZeile = " MsgBox ""VBA macht großen Spaß !"""
Sub VBAZeileÄndern()
Set VBE = Application.VBE.ActiveCodePane.CodeModule
With VBE
For x = 1 To .countoflines
i = .countoflines
If .Lines(x, 1) = NeueZeile Then
.ReplaceLine x, SuchZeile
Exit Sub
End If
If .Lines(x, 1) = SuchZeile Then
.ReplaceLine x, NeueZeile
Exit Sub
End If
Next x
End With
End Sub
'Code Soll im Modul 2 geändert werden (Momentan sind beide Codes im Modul1)
Sub Testen()
MsgBox "VBA macht Spaß !"
End Sub