Application.VBE.ActiveCodePane.CodeModule
15.06.2005 10:47:07
chris
was muss ich umschalten damit ich diese Codes ausführen kann ?
Ich wusste es mal irgendwo muss ich einen Hacken setzen nur wo?
Vielen vielen Dank für den Tipp Christian
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
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
Sub Testen()
MsgBox "VBA macht Spaß !"
End Sub